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Abstract 


We  have  developed  a  method  to  model  the  effects  of  an  engine  nacelle  on  the  tran- 
sonic flow  about  a  swept  wing.  The  nacelle  is  modelled  by  adding  an  inhomogeneous  term, 
which  represents  a  source  distribution,  to  the  potential  equation,  which  is  solved  by  relaxa- 
tion. Our  method  is  an  extension  of  the  design  code  FL22INV  of  Bauer,  Garabedian,  and 
McFadden,  which  was  based  on  Caughy  and  Jameson's  FL022  and  on  the  oblique  wing  code 
FL016. 

In  order  to  obtain  a  sharply  defined  obstacle  using  a  source  distribution  on  a  finite 
difference  grid,  we  must  use  a  small  grid  size  near  the  source.  We  accomplish  this  through  a 
mapping  of  the  flow  domain  to  the  computational  domain.  We  thus  obtain  a  concentrated 
source  distribution  which,  for  transonic  Mach  numbers,  will  cause  high  speeds  and  cavitation. 
To  overcome  this  problem  we  use  a  constant  coefficient  equation  for  the  velocity  potential 
near  the  source. 

Once  the  flow  has  been  computed,  the  size  and  position  of  the  nacelle  are  found  by 


IV 


tracing  streamlines.  To  do  this  we  solve  the  system  of  ordinary  differential  equations 

where    <|»    is  the  computed  velocity  potential.  This  integration  is  based  on  an  Adams 
predictor-corrector  method. 

We  have  used  our  code  to  study  the  effect  of  the  presence  of  an  engine  nacelle  on 
the  shock  waves  which  form  above  a  swept  wing  in  transonic  flight.  It  was  found  that  size- 
able shocks  appear  on  wings  that  were  previously  nearly  shockless.  By  applying  the  free 
boundary  redesign  technique  of  FL22INV  we  were  able  to  miniidze  the  wave  drag  Jue  to 
these  shocks  .  The  results  of  these  studies  are  included  along  with  a  listing  of  our  new  FOR- 
TRAN code  NACROSS,  in  whidi  an  effort  has  been  made  to  imprc/e  the  implementation. 
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1.  Introdaction 


In  this  chapter  we  give  a  brief  discussion  of  computational  transonic  aerodynamics 
and  we  describe  our  contribution  to  the  subject. 

The  transonic  range  of  airplane  flight  is  characterized  by  the  existence  of  a  region, 
called  the  supersonic  zone,  adjacent  to  the  upper  wing  surface  in  which  the  speed  of  the  air 
relative  to  the  wing  is  greater  than  the  speed  of  sound.  Sometimes  a  smaller  region  of  this 
kind  forms  below  the  wing  also.  The  free  stream  Mach  number  M,  ,  which  is  the  ratio  of 
the  airplane's  speed  to  the  speed  of  sound  in  still  air,  is  usually  between  .6  and  .9,  so  the  air 
flow  is  subsonic  except  in  the  supersonic  zone.  The  governing  equation  for  the  velocity 
potential,  which  is  elliptic  for  subsonic  flows,  becomes  hyperbolic  for  supersonic  flows.  The 
smoothness  guaranteed  by  elliptic  theory  for  subsonic  flows  can  not  be  expected  for  transonic 
flows.  In  general  shock  waves,  which  are  surfaces  across  which  the  pressure,  the  density  and 
the  velocity  are  discontinuous,  appear  in  the  supersonic  zone.  Thus  we  have  to  deal  with 
weak  solutions  of  a  partial  differential  equation  of  mixed  type. 

The  importance  of  transonic  flows  is  that  they  occur  at  the  most  efficient  flight 
speeds.  Fuel  costs,  and  in  general  the  direct  operating  costs  for  commercial  transport  air- 
planes,  are  minimized  by  flight  in  the  transonic  range  [18].  The  reason  for  this  is  essentially 

C, 

that  the  parameter  M^-p-  ,  which  measures  the  flight  efficiency,  with  Q  and  C^  the  lift  and 

drag  coefficients,  is  maximized  for  transonic  flow.   A  rapid  drag  rise  occurs  in  the  transonic 


range  due  to  the  effects  of  shock  waves.  The  additional  drag  has  two  sources.  There  is  wave 
drag  due  to  the  shock  waves,  and  there  is  drag  due  to  the  boundary  layer  separation  caused 
by  the  large  adverse  pressure  gradient  through  a  strong  shock.  Optimal  performance  is 
achieved  by  reducing  the  shocks  at  relatively  high  cruise  speeds. 

A  principal  goal  of  computational  transonic  aerodynamics  is  to  develop  computa- 
tional methods  for  the  analysis  of  transonic  flows  and  for  the  design  of  efficient  transonic  air- 
CTaft.  We  are  interested  in  particular  in  the  problem  of  designing  wings  with  only  weak 
shocks  at  a  given  Mach  number  and  angle  of  attack.  Methods,  which  we  shaD  describe 
below,  exist  for  the  design  of  shockless  transonic  airfoils  and  for  computing  the  transonic 
flow  about  a  given  wing.  One  approach  to  the  design  of  a  low  drag  transonic  swept  wing  is 
to  start  with  a  shockless  airfoil  in  each  wing  section.  Three-dimensional  effects  will  cause 
shocks  on  such  a  wing,  but  we  expect  them  not  to  be  too  severe.  By  small  readjustments  of 
the  wing  surface,  which  can  be  made  by  a  code  which  treats  the  wing  surface  as  a  free  boun- 
dary, we  can  redesign  the  wing  to  reduce  the  strength  of  the  shocks.  Our  method  takes  this 
program  one  step  further.  If  an  obstacle,  such  as  an  engine  nacelle,  is  placed  in  the  flow 
near  an  almost  shockless  wing,  sizeable  shocks  can  be  expected  to  appear  on  the  wing.  We 
have  incorporated  a  model  of  such  an  obstacle  into  the  free  boundary  design  code  of  Bauer, 
Garabedian  and  McFadden,  [5]  in  order  to  redesign  the  wing  under  more  realistic  conditions. 

Much  of  the  experimental,  theoretical  and  computational  research  on  transonic  flows 
has  had  as  its  aim  the  resolution  of  the  transonic  controversy:  WTiat  is  the  physical  signifi- 
cance of  the  known  smooth  transonic  solutions  of  the  equations  of  gas  dynamics,  in  particu- 
lar, can  smooth  transonic  flows  be  realized  in  practice?  In  the  late  1940's  wind  timnel  data 
mdicated  that  shockless  flows  did  not  exist.  It  was  postulated  (cf.  Frankl  [10])  that  smooth 
solutions  should  not  be  expected  and  that  the  boundary  value  problem  for  transonic  flow  is 
ill-posed.  Persuasive  arguments  to  this  effect  were  presented,  e.g.  by  Guderley  [14],  A 
rigorous  proof  of  the  ill-posedness  of  the  perturbation  problem  for  the  smooth  flow  about  an 
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airfoil  was  given  by  Morawetz  [20]  in  1956.  Recently  it  has  been  suggested  that  the  weak 
formulation  of  the  problem,  which  we  shall  present  in  Chapter  2,  is  well-posed,  but  no 
rigorous  proof  has  yet  been  given.  A  breakthrough  was  made  in  the  1960's  when  Pearcy  [23] 
and  Whitcomb  [26]  were  able  to  construct  nearly  shockless  airfoils  experimentally. 

As  computers  became  more  powerful,  effective  computational  methods  were 
developed.  In  the  late  1960's  Bauer,  Garabedian  and  Kom  [2]  developed  the  method  of  com- 
plex characteristics  for  the  design  of  shockless  airfoils.  In  this  method,  the  equations  are 
treated  in  the  hodograph  plane,  where  the  roles  of  the  dependent  and  independent  variables 
are  reversed  and  the  equations  become  linear.  All  the  variables  are  extended  to  the  complex 
domain,  where  the  equations  may  be  treated  as  hyperbolic.  Solutions  are  obtained  by  using 
finite  differences  along  the  complex  characteristics.  The  shockless  nature  of  airfoils  designed 
by  this  method  has  been  established  in  wind  tunnel  tests  [2].  The  shockless  and  nearly  shock- 
less airfoils  obtained  by  this  method  can  be  used  as  a  basis  for  the  design  of  practical,  low 
drag  transonic  wings  which  have  only  weak  shocks  in  the  operating  range  of  speeds. 

In  1971  Murman  and  Cole  [21]  introduced  type-dependent  differencing  which  made 
it  possible  to  compute  the  transonic  flow  with  shocks  about  a  given  airfoil.  By  using 
upstream  differences  in  the  supersonic  zone  they  were  able  to  model  shock  waves  with  differ- 
ence equations  which  are  solvable  by  relaxation.  Their  method,  which  was  applied  to  the 
two-dimensioned  small-disturbance  equation,  has  been  generalized  and  applied  to  the  poten- 
tial equation  in  two  and  in  three  dimensions. 

Our  work  is  an  extension  of  that  of  Bauer,  Garabedian  and  McFadden  [5],  who 
implemented  in  a  three-dimensional  code  a  method  similar  to  one  which  McFadden  [19]  had 
introduced  for  two  dimensions.  The  method  is  based  on  the  Murman-Cole  relaxation  pro- 
cedure. The  idea  is  to  specify  a  reasonable,  smooth  pressure  distribution  over  the  upper 
wing  surface  and  to  treat  that  surface  as  a  free  boimdary.   The  free  boundary  moves  during 


the  course  of  the  relaxation  procedure  so  that  the  prescribed  pressure  distribution  is  achieved. 
We  have  incorporated  in  their  code  a  model  of  an  engine  nacelle  by  adding  an  inhomogene- 
ous  term  to  the  potential  equation.  The  obstacle  is  thus  represented  by  a  fluid  source,  as  in 
the  method  of  images  of  incompressible  flow  theory. 

In  Chapter  2  we  formulate  the  mathematical  problem.  The  computational  procedure 
is  presented  in  Chapter  3.  Our  model  of  an  engine  nacelle  is  described  in  Chapter  4,  along 
with  a  discussion  of  its  implementation  in  the  code.  In  Chapter  5  we  describe  Garabedian's 
method  for  the  computation  of  wave  drag  [  ]  .  In  Chapter  6  we  discuss  the  free  boundary 
algorithm  and  the  choice  of  appropriate  data  for  the  inverse  problem  of  design.  In  Chapter  7 
we  present  the  results  of  analysis  and  design  run  s  of  the  code.  Chapter  8  contains  a  User's 
manual  and  a  description  of  the  code.  Chapter  9  is  a  glossary  of  input  parameters.  Finally,  a 
listing  of  the  code  NACROSS  and  samples  of  input  and  output  are  presented  in  Chapter  10. 

I  thank  Professor  Paul  R.  Garabedian,  who  suggested  this  problem,  for  his  advice, 
and  Dr.  Frances  Bauer  for  her  valuable  assistance.  I  thank  my  parents  for  their  guidance  and 
support. 
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2.  Mathematical  Model 


1.  Eqaadons  of  motion 

The  steady  flow  of  an  invisdd,  polytropic  gas  is  described  by  five  quantities,  the 
density  p(x,y,z),  the  specific  entropy  s(x,y,z),  and  three  velocity  components  u(x,y,z), 
v(x,y,2)  and  w(x,y,2).  The  pressure  ;»(jc,>',z),  the  specific  enthalpy  i(x,y,z),  the  sound  speed 
c(x,y,2),  and  the  speed  q(x,y,z)  are  defined  by 


s 


7-1  p 


dp  p 


q^=u^+v^+w^ 


where  the  constant  C^  is  the  specific  heat  at  constant  volame,  and  the  constant  -y  is  the  ratio 
of  the  specific  heats.  The  differential  equations  of  motion,  which  express  the  laws  of  mass, 
momentum  and  energy  conservation,  are  the  time-independent  Euler  equations 

(p«),+  (pv)^+(pw),=0  (2.1a) 

(pu\  +  ipuv\.+(puwX+p,=0  (2.1b) 

(puv),+  (pv2)  +(pv>v),+p  =0  (2.1c) 


(puw),+  (pvw)„+(p»v2),+p,=0  (2.1d) 


(p«(t9'+0),+(pv(j92+0),+(ph'(|-92+0).=0  (2.1e) 


The  differential  equation  of  energy  conservation  is  equivalent  to 

ipus),+  (pvs)y+(pws)=0  (2.1f) 

which  states  that  entropy  is  conserved. 

These  equations  apply  in  regions  in  which  the  flow  is  smooth.  When  the  flow  is 
supersonic,  i.e.  q>c  ,  the  flow  region  may  contain  surfaces  called  shocks,  across  which  the 
flow  quantities  are  discontinuous.  The  laws  of  mass,  momentum  and  energy  conservation 
must  be  satisfied  across  such  a  surface.  They  take  the  form  of  nonlinear  algebraic  equations, 
the  Rankine  Hugoniot  conditions,  which  relate  the  values  of  the  flow  quantities  on  either  side 
of  the  shock.  If  [f]  denotes  the  jimip  in  f  at  the  shock  and  §=(§,,5,.,?^)  is  the  normal  to  the 
shock,  the  Rankine-Hugoniot  relations  [7]  are 

[P«]5x+[PV]?,+[PH']?,  =  0  (2.2a) 

W+p]^^+[puv%+[puw]^^  =  0  (2.2b) 


[pvu]5,+[pv2+p]5y+[pv>v]5,=0  (2.2c) 


[pwu]^,+[pwv]^y+[pw^+p]^=0  (2.2d) 


[p«(y«7'+0]§x+[pv(y'72+0]5y+[pH'(|?2+0]?r=O  (2.2£) 


A  shock  is  a  mathematical  idealization  of  a  thin  region  in  which  the  fluid  undergoes 
rapid,  irreversible  changes  due  to  the  effects  of  viscosity  and  heat  conduction  [7].    The 


second  law  of  thermodyBamics  tells  us  that  the  specific  entropy  of  the  fluid  must  not  decrease 
as  the  fluid  crosses  such  a  region.  We  therefore  add  the  entropy  condition 

[j]  2  0  (2.2f) 

to  our  system  to  exclude  physically  unrealistic  discontinuities. 

The  definition  of  a  weak  solution  of  the  conservation  laws  is  a  general  statement 
which  reduces  to  the  differential  equations  for  smooth  flow,  and  to  the  Rankine-Hugoniot 
relations  at  a  shock.  The  functions  p,s,u,v  and  w  constitute  a  weak  solution  if  for  all  suffi- 
ciently smooth  test  functions  a, 

/  (a,(p«)  +  aj.(pv)  +  a,(p>v))  dxdydz  =  0  (2.3a) 

/  (a,(pu2+/>)  +  a^(puv)  +  o,(pw>v))  dxdydz  =  0  (2.3b) 

/  (o,(pv«)+Oj,(pv2+p)+a,(pvH'))  dxdydz  =  0  (2.3c) 

/  (a,(pwM)  +  a^(p»w)  +  a,(pw2+p))  dxdydz  =  0  (2.3d) 

/  (a,(pu)  +  a^,(pv)+aXp>v))(y?2+,)  ^^ydz  =  0  (2.3e) 

These  equations  provide  the  basis  for  finite  difference  schemes  that  capture  shock  waves  in 
an  adequate  fashion. 

Our  model  of  an  engine  nacelle  and  the  difference  scheme  we  use  both  introduce 
mass  source  distributions  into  the  flow.  If  f(x,y,z)  is  the  mass  per  unit  volume  introduced 
into  the  flow  per  unit  time  at  the  point  x,y,z,  the  definition  of  a  weak  solution  becomes 

J"  (a,(pu)  +  a  (pv)  +  aj(pH'))  dxdydz  =  f  a  f  dxdydz  (2.4a) 


J  (a,(pu^+p)  +  ay(pMv)+a^(pwH'))  dxdydz  =  /  afu  dxdydz  (2.4b) 

J  (a_,(pvM)+aj,(pv2+p)+a^(pvH'))  dxdydz  =  /  a/w  dxdydz  (2.4c) 

J  (o,(pM'«)+aj,(p»w)  +  a^(pM'^+p))  dxdydz  =  /  o/W  dxdydz  (2.4d) 

/  (a,(pu)  +  a,(pv)+a,(p>v))(i92+/)  dW)-^  =  /  a/(i^2+,)  ^y^  (2.4e) 

The  terms  on  the  right-hand  side  account  for  the  mass,  momentum  and  energy  of  the  fluid 
introduced  by  the  source  distribution.  Analogous  terms  appear  in  the  differential  equations. 
If  f  is  smooth,  the  shock  relations  are  unaffected,  and  are  still  given  by  2.2a  -  2.2f.  If  f  is  not 
smooth,  the  shock  relations  may  have  non-zero  right  hand  sides.  We  shall  encounter  this 
situation  when  we  discuss  the  computation  of  wave  drag  using  artificial  viscosity. 

2.  Isentropic  approximation 

In  order  to  simplify  the  equations  we  assume  that  the  flow  is  irrotational  and  isentro- 
pic. The  assumption  of  constant  entropy  is  justified  for  flows  with  weak  shocks  since  the 
entropy  jump  across  a  shock  is  of  third  order  in  the  shock  strength  [7].  By  Kelvin's  theorem 
on  the  conservation  of  circulation  the  assumption  of  irrotationality  is  equivalent  to  the 
assumption  that  the  flow  is  uniform  in  the  free  stream.  These  assumptions  imply  that  there  is 
a  velocity  potential  4)  such  that  V<|>=(ii,v,»v),  and  that  Bernoulli's  law, 

2^^         2(7-1) 
holds,  where  the  constant  e.  is  the  critical  speed,  the  speed  at  which  q=c.  Using  Bernoulli's 
law  we  can  express  i,  and  thus  p,p,  and  c  in  terms  of  (J),  so  all  the  physical  information  is 
contained  in  one  fimction. 

Under  our  assumptions,  the  energy  equation  2.3e  is  equivalent  to  the  mass  equation 
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2.3a.  For  smooth  flow,  the  momentum  equations  2.1b  -  2. Id  are  also  equivalent  to  the  mass 
equation  2.1a.   Thus,  for  smooth  flow  we  need  only  consider  equation  2.1a.   If  we  perform 

the  differentiations  and  multiply  by  —  we  get 

(c2-«2)4,^+(c2-v2)(j,^^+(c2-w2)<j,„-2uv<()^-2»nv(})„-2v>v<}>^.,=0  (2.5a) 

This  is  the  potential  equation.  For  subsonic  flow  {q<c)  it  is  elliptic  and  for  supersonic  flow 
{q>c)  it  is  hyperbolic.  If  there  is  a  mass  source  distribution  f,  the  potential  equation 
becomes 


(c2-u2)<t,„+(c2-v2),},^y+(c2-w2)(},„-2«v4.^-2uw4)„-2v>v«^^,=■£i/         (2.5b) 


At  a  shock  we  caimot  satisfy  the  Rankine-Hugoniot  relations;  since  we  are  conserv- 
ing entropy  by  assumption,  we  must  allow  some  other  quantity  to  jump.  We  retain  the  con- 
ditions that  mass  and  the  components  of  momentum  parallel  to  the  shock  must  be  conserved, 
but  we  allow  the  momentum  component  normal  to  the  shock  to  increase.  Continuity  of  <}> 
ensures  that  the  momentum  components  parallel  to  the  shock  are  conserved.  The  other  shock 
conditions  dnz 

[P«]?,+[pv]l,+  [pM']|,  =  0  (2.6a) 

[p{.uh,+Ay'rwk,f+p]  a  0  (2.6b) 

If  there  is  a  mass  source  distribution  f,  which  behaves  like  a  delta  function  at  the  shock, 
equation  6a.  will  have  a  non-zero  right  hand  side. 

The  inequality  (2.6b)  is  a  generalized  entropy  condition  [17]  which  requires  that 
shocks  be  compressive.  It  thus  produces  a  momentum  excess  which,  in  the  case  of  the  flow 
about  a  wing,  appears  as  a  retarding  force  on  the  wing  (wave  drag).    In  this  sense  it  is  an 
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appropriate  replacement  for  the  physical  entropy  condition  2.2f. 

For  flows  over  wings  with  nearly  normal  shocks  the  results  of  computations  based  on 
potential  flow  compare  well  with  experiment  at  realistic  transonic  Mach  numbers.  Steger  and 
Baldwin  [25]  present  a  physical  argument  for  the  validity  of  the  model,  and  they  discuss  wave 
drag  in  isentropic  flow. 

3.  Boaadary  Conditions 

We  are  interested  in  the  flow  about  a  swept  wing  on  a  wall.  The  flow  must  be 
tangent  to  the  wing  and  to  the  wall,  i.e.  at  both  surfaces 


ii  =  o 

dn 


where  n  is  the  coordinate  in  the  normal  direction.  The  condition  in  the  far  field  is  that  the 
velocity,  V^,  approaches  a  specified  free  stream  velocity, 

V<|>  -  (u.,v.,)v,),  x^+y^  -  • 

A  modified  version  of  the  far  field  condition,  which  can  be  applied  at  a  surface  a  finite  dis- 
tance away  fron  the  wing,  is  used  in  our  computer  code  NACROSS.  We  will  discuss  this  -a 
the  next  chapter. 
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3.  Computational  Proccdare 


In  this  chapter  we  describe  the  computational  procedure  for  solving  the  potential 
equation.  The  method  is  basically  that  of  FL022  [16]  and  FL016  [3]. 

We  compute  the  flow  past  a  swept  wing  on  a  waU  in  the  presence  of  an  obstacle  by 
solving  the  inhomogeneous  potential  equation  (2.5b).  We  set  up  an  x,y,z  coordinate  system 
such  that  the  wall  lies  in  the  plane  z=0.  The  speed  q  =  |V4>|  is  normalized  to  1  in  the  far 
field.  Using  this  normalization  and  the  fact  that  f  —  1.4  for  air,  Bernoulli's  law  becomes 

c2=-X.+  .2(l-^2) 

AZgo 

\ 

In  order  to  remove  the  singularity  in  ((>  at  inHnity  we  use  a  reduced  potential  G  which  is 
defined  by 

<|>  =  X  coso  +  y  sina  +  s  G 

where  the  constant  j  is  a  scale  factor  which  depends  on  the  size  of  the  wing.  The  introduc- 
tion of  G  was  essential  in  FL016  and  YLOll  because  the  far  field  boimdary  condition  was 
applied  at  infinity.  We  have  retained  the  reduced  potential,  although  the  new  far  field  boun- 
dary condition  which  we  shall  describe  below  makes  it  unnecessary. 

1.  Mapping 

The  physical  space  is  mapped  to  a  computational  domain  in  several  steps,  the  essen- 
tial one  of  which  is  a  transformation  to  parabolic  coordinates.  First  we  construct  a  curve 
X  —  Xj{2)  ,  y  -  Vsi^)  which  is  called  the  singular  line,  which  will  be  the  location  of  a  branch 
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point  in  each  plane  z  =  const.  This  curve  lies  just  inside  the  leading  edge  of  the  wing  and  is 
extended  beyond  the  wing  tip  as  a  line  (if  the  leading  edge  is  straight  the  entire  curve  may  be 
a  line).  In  the  coordinates 

x  =  X  -  xXz) ,    y  =  y-  y,(2) ,    ?  =  ^ 
the  singular  line  lies  on  the  z  axis.   We  the  scale  the  coordinates  according  to  the  rule 

i=£.         y=l,         f=X 

S  S  Sj 

where  s  is  the  scale  factor  which  was  introduced  along  with  G,  and  where  the  constant  s^  is 
another  scale  factor  which  depends  on  the  wing  size.  In  each  f  —  const,  plane  a  branch  cut 
originating  at  i  =  y  =  0  is  made.  It  passes  through  the  trailing  edge  (i,,>',)  and  is  continued 
downstream  of  this  point  according  to  the  formula 


y  =  y,  +  T  (x,-x') 


log(T^) 


x—x 


X,— X 


where  t  is  the  mean  slope  at  the  trailing  edge  and  i*  is  a  scaling  parameter.  The  points  on 
these  branch  cuts  downstream  of  the  trailing  edge  constitute  the  vortex  sheet. 

The  conf ormal  transformation 

(X,+  iY,)^  =  2ix  +  iy) 

maps  the  flow  domain  into  a  quadrant  in  (X^ ,  Y^  ,  Z  J  space  and  maps  the  wing  and  vortex 
sheet  surface  onto  a  surface  Y^  =  S{X^ ,  Zj  which  lies  near  the  plane  Y^-  0.  An  additional 
transformation 
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Z  =  Zi 

maps  the  wing  and  vortex  sheet  onto  the  plane  K  =  0.   In  the  new  coordinates   {X  ,Y  ,2") 
the  potential  equation  for  G  becomes 

where  the  coefficients  are  given,  in  the  notation  of  [6],  by 

A  =  (a2  +  ^i2  +  §2)^2  _  f/2^  B  =  (k2  -h  p2  +  ^2)^ 

C  =  Q\c'^  -  ^2),  D  =  (<JK  -I-  ji,p  +  i'i)c^-UV 

E  =  C(§c2  -  t/w),  F  =  Qinc^  -  Vw) 

T-{iP-  —  v^)  —  2mv +  2mh'x  +  2vw^ 

dJr  dxdy 

lUwQSxz  +  («^  -  v2)\  +  2uv2  -  2uw(5xX  +  ']')- 
2vw(5;iHJ;  -  x)  -  c2((a2  +  n^  +  ^2)^^  +  qI^^  + 


14- 


Here  we  put 


dx  dy 


€  =  -(x,'<T  +  >/»!,),  11  =  (or/jt  -  y,'(T) 


K  =  -(<t5,  +  jjl),  ^  =  <t  -  M,5, 


ai^  aoray  djr  dxdy 


X  =  5, — r  +  ^'  2  =  5, ^  +  —Y 

di^         dxdy  dxdy         d^ 


e  =  -Sz  -  5^;f  +  11,  U  =  u(T  +  vii  +  w^ 

V  =  «K  +  vp  +  w-y 

A  final  mapping  takes  the  X,  Y,  Z  quadrant  containing  the  flow  domain  into  a  box. 
We  also  use  this  mapping  to  concentrate  grid  points  near  the  source,  i.e.  near  the  points 
where  /  ^  0.  This  grid  sqeezing,  which  is  accomplished  with  polynomials,  is  discussed  in 
detail  in  Chapter  4.  We  choose  X,^^  and  Z,^^  so  that  the  image  of  the  wing  lies  in  the  rec- 
tangle 0  s  Z  <  Z,^  ,  \X\  <Xj^  in  the  plane  Y  =  0.  We  choose  Y^  ,Y^  ,Z„  ,  Z^  with 
Yg  £  Yf,   and  Z^  ^  Z^    such   that   the   source   representing   the   nacelle  lies   on  the  line 

Y  =  -^(Y^  +  Y^)  ,Z  =  ^(Zg  +  Zft)  in  the  computational  domain.    We  can  wrice  explicit 
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f ormulas  only  for  the  inverse  mapping 


X  = 


X, 

-^  V            ^    _ 

x-±x^ 

^\<x^ 
^x>x^ 

^■*m«  + 

1- 

(x-±x^V\Y 

Y  = 


2  i' 

(i-F)^ 


[i-P] 


T  +  ^/^)' 


0  s  y  s  y^ ,  y^  s  r 


Y^<Y<Y^ 


z  = 


Z  +  P,(Z), 


z„„+- 

max 


z-z„ 


(-fell 


'^i 


0  s  Z  s  Z„  ,  Zj  s  Z  s  Z„ 


Z„^Z:SZ^ 


Zmax^Z 


Here  P^,  and  i»^  are  seventh  degree  polynomials  which  are  constructed  so  that  the  mappings 
are  twice  continuously  differentiable. 
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2.  Difference  Scheme 

For  the  computation  we  use  a  rectangular  grid  in  the  computational  domain  with  grid 
sizes  Az  ,  A3'  ,  Az  and  indices  i  ,j  ,  k  in  the  X  ,Y  ,Z  directions.  The  difference  scheme  is 
Jameson's  rotated  scheme  [15]  which  is  a  variant  of  the  type-sensitive  retarded  scheme  of 
Murman  and  Cole  [21].  In  order  to  describe  the  scheme  we  rewrite  the  potential  equation 
locally  in  a  coordinate  system  which  is  aligned  with  the  flow.  If  5  is  a  streamwise  coordinate, 
we  have 

At  both  subsonic  and  supersonic  points  centered  differences  are  used  for  all  first  derivatives, 
e.g.  at  the  point  with  indices  i  ,j  ,k 

^^  2Ax 

In  the  subsonic  region  centered  differences  are  used  for  all  second  derivatives,  e.g. 

^  Ax2 

^^  4AxA3' 

In  the  supersonic  zone,  the  derivatives  in  the  expression  for  (A<{)-<t)55)  are  approximated  by 
centered  difference  as  in  the  subsonic  case.  The  second  derivatives  in  the  expression  for  <|)„ 
are  approximated  by  first  order  differences  retarded  in  the  direction  of  the  flow,  e.g. 


^^  Ax2 


if  the  flow  is  in  the  positive  X  direction. 
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The  first  order  truncation  error  in  the  supersonic  zone  acts  as  an  artificial  viscosity 
which  permits  shocks  to  form.  The  rotated  scheme  gives  the  difference  equations  the  correct 
local  domain  of  dependence  and  to  introduces  an  artificial  viscosity  which  will  enforce  the 
entropy  condition.  The  role  of  the  artificial  viscosity  in  capturing  shocks  is  discussed  further 
in  Chapter  5. 

The  scheme  we  have  described  is  non-conservative,  i.e.  the  artificial  viscosity  adds  a 
term  to  the  right-hand  side  of  the  mass  equation  which  is  not  a  divergence.  In  the  limit  of 
vanishing  grid  size  mass  is  not  conserved  across  the  shock,  so  the  shock  jumps  and  shock 
position  are  incorrect.  From  the  purely  mathematical  point  of  view,  it  would  be  preferable  to 
use  a  conservative  scheme,  which  would  give  a  correct  weak  solution  in  the  limit.  However 
non-conservative  schemes  yield  results  which  are  in  better  agreement  with  experimental  data. 
The  error  introduced  by  non-conservative  differences  partially  compensates  for  the  error 
introduced  by  omitting  viscous  effects.  The  shock  wave  /  boundary  layer  interaction,  in  par- 
ticular the  pressure  recovery  at  the  foot  of  a  normal  shock,  seems  to  be  better  modelled  by  a 
non-conservative  scheme  [11]  .  For  this  reason  we  have  retained  the  non-conservative  form. 
There  is  no  essential  difficulty  in  implementing  our  analysis  in  a  conservative  scheme. 

The  difference  equations  are  solved  by  a  succesive  line  over-relaxation  scheme.  The 
details  of  this  scheme  and  an  analysis  of  its  convergence  using  the  concept  of  artlHcial  time 
are  given  in  [15]. 

3.  Boondary  Conditions 

The  mapping  described  above  takes  the  planes  X  =  ±  1  ,  F  =  1  ,    and  Z  =  1  to 

infinity.        We       do       the       computation       in       a       smaller       box       lx|  s  r,  <1  , 

Osysrj,<l,Oszsrj<l.  The  nimibers  r^  ,  r^  ,  and  r^  are  chosen  so  that  the  image 

of  the  computational  region  in  physical  space  has  dimensions  on  the  order  of  4  to  6  chords  in 

each  span  station  and  so  that  it  extends  about  half  a  span  length  beyond  the  wing  tip  (  see 
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Fig.7). 

On  the  vortex  sheet  the  condition 

Gj7  =  0 
is  applied.  At  points  on  the  singular  line  beyond  the  wing  tip,  the  equation 


(#''°«  *  3°'  *  " ""  '^''>^^§'°"  *  1F°'^ 


is  used  [15]  . 

The  mapped  form  of  the  Neumann  condition  for  tangential  flow  becomes 


((a2  +  jt2)(i  +  5^2)  +  £2)£Lgj,  +  (-(a2  +  jt^)^;^  +  ?e)^G-j  + 


€— -Gz  +  (-ffcosa  -  p,sina)5v  -  (icosa  +  asina  =  0 
aZ 


on  the  wing  surface  y  =  0,  and 


fcz*5fc,+  .fc,  =  o 


on  the  wall  Z  =  0. 

On  the  surface  y  =  r^  we  apply  the  mixed  boundary  condition 


dir 


-^G  +  p^G  =  0 


where  ^^  is  a  positive  constant  which  has  been  chosen  empirically.  The  idea  is  to  assert  that 
G  decays  in  the  far  field  by  specifying  a  decay  rate  at  a  control  surface.  The  same  type  of 
condition  is  applied  at  the  remaining  boundary  surfaces   |X^|  =  r^  and  Z  =  r^. 
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4.  Model  of  an  Engine  Nacelle 


We  represent  an  engine  nacelle,  as  in  the  method  of  images  of  incompressible  flow 
theory,  by  adding  a  soxirce  distribution  to  the  flow.  In  the  Incompressible  case,  the  source 
distribution  is  often  made  up  of  delta  functions  or  'point  sources'.  We  solve  the  discretized 
version  of  the  inhomogeneous  potential  equation  (2.5b)  with  a  source  distribution  given  by  a 
fimction  fij^k  which  is  non-zero  at  only  one  or  two  grid  points.  To  avoid  confusion  in  the 
following  discussion  it  is  important  to  keep  in  mind  that  a  source  distribution  /  yields  an 

inhomogeneous  term  s(X^  +  Y{-) — f  for  the  potential  equation  in  mapped  coordinates. 

P 

1.  Strength  Specification  and  Grid  Squeezing 

For  simplicity  assume  that  /  is  non-zero  at  exactly  one  grid  point  (jcq,  y^,  Zg)  ,  with 
indices  ig,  y'o,  k^  .  In  the  code  /  is  non-zero  at  two  adjacent  points.  The  extension  of  the 
analysis  to  this  case  is  simple.  If  the  asymptotic  cross-sectional  area  of  the  nacelle  A.  is 
specified  we  can  determine  the  value  of  /q  which  will  produce  this  area  by  integrating  the 
mass  equation  (2.1a).  In  order  to  perform  the  integration  we  must  extend/  to  a  function  of 
the  continuous  variables.  We  do  this  by  the  formula 

....=.(..  (iiAf)(,-(i^f)(.-(i^n 

in  the  computational  domain  for  points  in  grid  boxes  adjacent  to  the  source  point,  and  els- 
where  we  set  /  =  0  .  Of  several  integration  schemes  which  were  tried  this  one  gave  the  best 
results,  i.e.  this  one  best  represents  the  way  the  difference  scheme  responds  to  the  source. 
The  integration  yields 
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where  V  is  the  total  volume  in  physical  space  of  the  grid  boxes  adjacent  to  the  source. 


For  fixed  A,  we  have  a  one-parameter  family  of  values  of/  and  V.  For  large  V  the 
obstacle  may  not  be  clearly  defmed,  i.e.  there  will  be  no  stagnation  point,  no  dividing 
streamline,  and  no  way  of  establishing  a  shape  and  position  for  the  obstacle.  This  situation 
can  be  illustrated  by  the  following  example  of  a  two-dimensional  incompressible  flow.   We 

introduce  a  radially  symmetric  source  distribution  given  by  a  Gaussian    —e    ^ 

p 

into  a  uniform  flow  with  potential  x.  The  constant  k  is  proportional  to  the  source  strength. 
The  parameter  p  measures  the  concentration  of  the  source,  with  small  beta  representing  high 
concentration.  The  velocity  on  the  x  axis  is  then  given  by 

«(x.O)  =  1 -H  |-(1  -  *    ») 

In  the  limit  as  0  -  0  we  get  the  point  source  solution.  An  application  of  the  mean  value 
theorem  to  the  function  xa(x,0)  shows  that  no  stagnation  point  and  thus  no  dividing  stream- 
line exists  for  p  a  2*2. 

In  the  numerical  solution  of  the  potential  equation  a  similar  situation  exists,  with  the 
grid  siie  taking  the  place  of  p.  In  order  to  represent  a  nacelle  on  the  coarse  grids  which  must 
often  be  used  for  three-dimensional  calculations,  we  must  reduce  the  grid  sr^e  near  the 
source.  This  local  grid  refinement  is  also  necessary  in  some  cases  to  obtain  an  obstacle  with 
an  asymptotically  circular  cross-section;  if  the  grid  size  in  one  direction  is  substantially  larger 
than  that  in  another,  we  will  obtain  an  oblong  cross-section. 

We  squeeze  the  grid  near  the  source  by  introducing  polynomials  Py(y)  and  i*^(Z),  to 
alter  the  mapping  from  the  computational  coordinates.    These  are  the  polynomials  which 
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were  described  in  Chapter  3.  There  is  no  csed  to  squeeze  the  grid  in  the  x  direction;  near  any 
reasonable  nacelle  location  the  planes  x  =  const,  are  nearly  perpendicular  to  the  flow,  and 
Ajc  is  generally  small  enough  so  that  the  source  is  sufficiently  concertrated  in  the  x  direction  ( 
see  Fig.  7  ).  For  simplicity  we  first  map  the  intervals  [Y„,  Y^]  and  [Z^,  Z^]  with  midpoints  Yq 
and  Zq  affinely  onto  [- 1,1].  If  j(ti)  is  the  original  mapping,  the  new  mapping  is  given  by 

on  [—1,1]  and  by  g(-r\)  elsewhere.  TJie  constant  k  is  chosen  to  give  the  desired  derivative  at 
Ti  =  0  (  see  Fig.  3  ).  This  mapping  has  two  continuous  derivatives.  It  reduces  to  the  original 
mapping  for  k  =  1.  The  choice  of  k  is  discussed  in  Chapter  7. 

2.  Constant  Coeffldent  Elqaation 

-  At  transonic  speeds  cavitation  may  occur  near  a  source  wtiich  is  sufHciently  strong 
and  concentrated  to  produce  a  dearly  defined  obstacle  of  the  size  of  an  engine  nacelle.  We 
overcome  this  difficulty  by  replacing  the  potential  equation  (2.5b)  with  a  constant  coefficient 
equation  near  the  source.  The  equation  we  use  is  obtained  by  replacing  the  velocity  com- 
ponents M,  V,  and  w,  and  the  sound  speed  c  by  m„  v„  w,,  and  -— — ,  i.e.  by  freezing  the 

™«» 

coefficients  at  their  free  stream  values.  This  amounts  to  treating  the  fluid  as  incompressible 
near  the  source.  In  physical  coordinates  the  corresponding  equation  becomes 

P-^^TTT  ~  "^^^"^^^^  +  (tTT  ~  5"^^«)'1'»  -  2cosasina4)^  +  (-j-j)^:^)  =  l^A^-'^) 

The  use  of  this  equation  near  the  source  in  no  way  affects  the  validity  of  our  solu- 
tion; the  altered  equation  is  applied  only  inside  the  naceUe.  We  are  not  concerned  with  the 
details  of  the  flow  in  this  region,  but  only  in  producing  an  obstacle.  The  use  of  equation 
(4.1)  near  the  source  also  facilitates  the  specification  of  the  nacelle  size.  In  our  formulation, 
in  which  we  specify  the  inhomogeneous  term  for  the  potential  equation,  the  effective  source 
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strength  in  the  compressible  case  is  a  function  of  the  density  at  the  source  point.  At  the  sur- 
face  where  the  fluid  flows  out  of  the  constant  coefficient  region,  p,  is  a  good  approximation 
to  the  density.  Therefore  we  can  accurately  estimate  the  nacelle  size  by  specifying  the  source 
strength  as  if  for  an  incompressible  flow  with  constant  density  p.. 

No  special  considerations  are  necessary  for  differencing  in  the  constant  coefficient 
region.  The  type-sensitive  scheme  automatically  treats  the  eqxiation  as  elliptic,  since  we 
freeze  the  speed  at  a  subsonic  value. 

2.  Streamline  Tracing 

When  4>  has  been  computied  we  locate  and  plot  the  engine  nacelle  by  tracing  stream- 
lines near  its  surface.  In  this  way  we  also  check  its  asymptotic  cross-sectional  area.  We  trace 
the  streamlines  by  solving  the  system  of  ordinary  differential  equations 

in  the  computational  domain,  where  J  is  the  Jacobian  matrix  of  the  coordinate  mapping.  In 
order  to  carry  out  the  integration  we  must  interpolate  the  derivati'^es  of  <{>  for  points  not  on 
the  grid.  We  assume  that  ^  is  the  restriction  to  grid  points  of  a  smooth  function  of  the  same 
name.  At  a  point  (X,  Y,  Z)  we  expand  4)  in  a  power  series,  and  express  <}>  at  neighboring 
grid  points  in  terms  of  this  series,  e.g. 

4>/j.i  =  4>  +  M^/  -x)  +  (j>j<y;  -Y)  +  ^z(Z,  -  Z)  +  ^^^X,  -Xf+  •  •  • 

where  non-indexed  <^  ,  ^^  ,  etc.  are  evaluated  at  (X,  Y,  Z).  We  then  take  a  weighted  aver- 
age of  these  expressions  such  that  we  get  a  second  order  approximation  to  the  desired  deriva- 
tive. 

We  first  locate  the  stagnation  point,  which  we  take  as  the  tip  of  the  nacelle.  This  is 
done  by  searching  for  the  miniiniiin  of  9^  in  a  region  just  upstream  of  the  source.   This  is 
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done  in  the  crudest  possible  way,  i.e.  by  searching  each  point  on  a  grid.  More  sophisticated 
methods  involving  derivatives  of  q  were  found  to  be  unreliable  because  of  the  rapid  changes 
in  the  derivatives  near  the  source.  We  have  a  good  estimate  of  where  the  stagnation  point 
should  be,  so  the  search  is  fast. 

Once  the  stagnation  point  has  been  found,  we  construct  a  small  circle  m  a  plane  per- 
pendicular to  the  free  stream  velocity,  just  upstream  of  the  stagnation  point.  The  center  of 
the  circle  lies  on  the  line  which  passes  through  the  stagnation  point  and  is  perpendicular  to 
the  plane.  On  this  circle  we  locate  9  equally  spaced  point  through  which  we  trace  stream- 
lines. 

The  streamlines  are  traced  using  a  fourth  order,  variable  step-size,  Adams 
predictor-corrector  method  (cf.  [25]).  They  are  continued  far  enough  to  become  essentially 
parallel  to  the  free  stream  velocity,  and  are  all  terminated  on  a  plane  parallel  to  the  one  con- 
taining the  original  drcle.  We  take  the  intersection  of  this  plane  with  the  line  through  the 
source  point  and  parallel  to  the  free  stream  velocity  as  an  origin.  We  then  pass  a  tri- 
gonometric interpolant  r(6)    through  the  streamline  termination  points.    We  compute  the 

final  stream  tube  cross-sectional  area  as  A,  =  —  /  r^(B)d9  .   We  then  subtract  off  the  area 

2  0 

due  to  the  mass  flux  mg  into  the  stream  tube  through  the  original  circle  to  obtain  the  nacelle 

cross-sectional  area: 


A      =  A      —   - 


P. 


The  area  computed  in  this  way  generally  agrees  with  the  input  A.  to  within  10  —  15  %. 

The  nacelle  is  plotted  along  with  the  wing  and  shocks  (  see  Fig.  8  )  as  a  circular 
cylinder  of  area  A,  centered  on  the  line  x  =  Xq. 
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5.  Wave  Drag 


1.  Basic  Theory 

Any  method  for  redesigning  transonic  wings  must  be  based  on  an  accurate  method 
for  approximating  wave  drag,  which  is  the  drag  due  to  shock  waves.  In  this  section  we 
present  such  a  method  due  to  Garabedian  [  ].  A  basic  difficulty  in  computing  wave  drag, 
numerically  or  experimentaUy,  is  separating  it  from  other  forms  of  drag  [9].  For  a  flow  with 
sharp  shocks,  we  can  compute  the  wave  drag  from  the  jumps  in  the  flow  quantities  at  the 
shocks.  However,  flows  computed  by  artificial  viscosity  methods  have  smeared  shocks,  so  it 
is  not  clear  how  to  define  the  shock  jumps.  The  method  we  shall  describe  overcomes  these 
difHculties  by  computing  the  wave  drag  as  an  integral  of  the  artificial  viscosity. 

We  shaU  discuss  drag  for  two-dimensional  flows  in  order  to  simplify  the  presenta- 
tion. The  extension  to  three  dimensions  presents  no  problem.  We  consider  a  symmetric  air- 
foil A  flying  in  the  negative  x  direction  with  a  single  shock  S  terminating  a  supersonic  zone 
on  its  upper  surface  (  see  Fig.  1  ).  All  of  the  results  on  wave  drag  apply  also  to  the  non- 
symmetric  case.  The  drag  D  on  such  an  airfoil  is  given  in  terms  of  the  pressure  p  by 

D  =  -fpdy 

A 

By  using  the  boundary  condition  at  the  airfoil  surface  and  applying  the  divergence  theorem  to 
the  X  momentum  equation,  we  obtain  the  equivalent  expression 


^  =  -fipdy  +  pu^dy-puvdx  )  +  /  (  [pu^+p]dy  -  [puv]  dx  ),  (5.1) 
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where  fl,  is  a  large  circle  that  encloses  the  airfoil. 

In  Euler  flow,  the  integral  over  the  shock  in  (5.1)  vanishes  by  the  Rankine-Hugoniot 
relations.  For  this  case  Oswatitsch  [22]  has  determined  the  following  approximate  formula 
for  the  wave  drag  D„  : 

T 
D„  =  -^  J(  [pus]  dy  -  [pvj]  dx) 

where  T,  is  the  temperature  in  the  free  stream.  The  entropy  jump  \s\,  and  therefore  the 
wave  drag,  is  of  third  order  in  the  shock  strength  [«]  (cf.  [7])  .  In  the  isentropic  model,  the 
entropy  jump  vanishes,  but  the  integral  over  the  shock  in  (5.1)  does  not,  so  we  have 

£>.  =  /(  [P«^+P]  dy  -  [puv]  dx) 

5 

This  expression  is  also  of  third  order  in  the  shock  strength.  The  generalized  entropy  inequal- 
ity (2.6f)  ensures  that  the  drag  will  be  positive. 

2.  Drag  in  Small  Disturbance  Theory 

We  shall  now  discuss  the  details  of  the  wave  drag  calculation  for  the  small  distur- 
bance equation  (cf.  Ashley  &  Landahl  [1]) 

(a:-gjg„+g^,=o  (5.2) 

because  of  its  simple  form.  Equation  (5.2)  is  the  mass  conservation  equation.  The  positive 
constant  AT  is  a  similarity  parameter,  which  may  be  thought  of  as  the  critical  speed.  The 
equation  is  hyperbolic  for  Gj>K,  and  elliptic  for  Gj<K.  The  momentum  equation  results 
from  multiplying  equation  (5.2)  by  G^.  The  boundary  conditions  are 

Glx,G)=f{x),     Ixl^l 
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G/x,0)  =0,        lx|  >  1 

where  f(x)  is  the  airfoil  thickness  distribution.   We  shall  consider  only  normal  shocks.  The 
jump  conditions  at  such  a  shock  are  that  G  must  be  continuous  and 


t^^;^l=o 


The  entropy  condition  is 


[^^^1  =  0 


and  the  wave  drag  is  given  by 


L 

5 


^H.  =J  [ 3 J  dy 


The  solution  of  this  problem  can  be  approximated  numerically  on  a  rectangular  grid 
using  retarded  differences.  The  difference  equations  for  the  subsonic  zone  are 


The  standard  conservative  difference  equations  in  the  supersoir^c  zone  are 


The  corresponding  non-conservative  equations  such  as  are  used  in  our  code  are 
^  ^  ^  Ax'  Ay' 


We  assume  that  G  is  the  restriction  to  grid  points  of  a  smooth  function  and  we 
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expand  it  in  a  Taylor  series.  Up  to  second  order  in  Ax  and  Ay  we  have 

in  the  subsonic  zone.  In  the  supersonic  zone  we  obtain 

(K-G,)G„+G^  =  -Ax  (-^^^^)^ 

for  the  conservative  scheme,  and 

(K-G,)G,„+G^^  =  Ax  (K-G,)G^ 

for  the  non-conservative  scheme.  Thus  in  both  the  conservative  and  non-conservative  cases 
we  have  an  equation  in  the  supersonic  zone  of  the  form 

{K-G,)G„+G^y  =  T, 

where  i]  is  an  artificial  viscosity.  Other  acceptable  choices  of  ti  can  be  made.  If  t]  is  a  diver- 
gence, the  scheme  will  be  conservative,  i.e.  mass  will  be  conserved.  If  -q  is  not  a  divergence, 
the  scheme  will  be  non-conservative,  i.e.  mass  will  generally  not  be  conserved. 

The  function  -n  may  also  be  interpreted  as  a  mass  source  distribution,  since  it  is  on 
the  right-hand  side  of  the  mass  equation.  The  corresponding  x  momentum  equation 

(K-G,)G,G„+G,G„  =  G,-n  (5.3) 

in  the  supersonic  zone  contains  a  momentum  source  term  Gj-t\  . 

The  interpretation  of  the  artificial  viscosity  as  a  source  distribution  is  the  basis  of  the 
wave  drag  computation.  The  numerical  mechanism  of  shock  formation,  the  artificial  viscos- 
ity, alters  the  mass  flux.  Fluid  which  enters  or  leaves  the  flow  has  momentum.  Even  for  a 
conservative  scheme,  for  which  the  net  change  in  mass  per  unit  time  is  zero,  i.e. 


J  ft]  dxdy  =  0 

D 
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where  D  is  the  supersonic  zone,  the  net  change  in  z  momentum  per  unit  time, 

J/G,Ti  dxdy 

D 

will  not,  in  general,  be  zero.  The  momentum  of  the  fluid  which  is  added  or  withdrawn  by 
the  artificial  viscosity  is  balanced  by  a  force  on  the  airfoil  which,  in  the  case  of  a  conservative 
artificial  viscosity,  is  the  wave  drag.  In  the  case  of  a  non-conservative  artificial  viscosity, 
since  mass  is  not  conserved,  the  force  on  the  airfoil  consists  of  two  parts,  the  wave  drag  and 
the  force  which  decelerates  the  excess  mass  to  the  free  stream  velocity.  This  second  force  is 
a  numerical  effect,  and  must  not  be  considered  part  of  the  wave  drag  [11].  This  is  reflected 
in  the  fact  that  without  accounting  for  the  deceleration  of  the  excess  mass  we  obtain  an 
expression  which  is  of  second  order  in  the  shock  strength,  whereas  the  corrected  expression 
for  the  wave  drag  will  be  of  third  order,  as  it  should  be. 

To  make  these  ideas  more  precise,  we  consider  a  rectangle  R  of  width  8  which 
straddles  a  line  S  that  is  assumed  to  be  the  location  of  a  normal  shock  in  the  limit 
Ax,A^  -  0  (see  Fig.  2).  For  non-zero  mesh  size,  the  line  is  in  the  interior  of  a  smooth 
compression  wave  which  is  spread  over  a  few  mesh  widths.  Let  Dj^  be  the  intersection  of  R 
with  the  supersonic  zone.  If  we  integrate  the  x  momentum  equation  (5.3)  over  R  and  apply 
the  divergence  theorem,  we  find 


/  (  ^-%-  ~  dy  -Gfi^  dx)  =  JJ  M  dxdy  (5.4) 

By  doing  the  same  with  the  mass  equation  we  obtain 

/  (  -  ^^^^  dy-Gydx)  =  55^  dxdy  (5.5) 

In  any  region  which  does  not  contain  a  shock  •r\  will  go  to  0  with  Ajc.   Therefore,  we  can 
apply  the  divergence  theorem  to  the  limit  solution  to  obtain 
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/  [^~]  dy  =  J  (^--^  -^  dy-G,G^  dx)  =  ^fjG,^  dxdy  (5.6) 

S  -[-^^^^]  dy  =  f  (--^^^^  dy-G^  dx)  =  Urn  f  f  r^  dxdy  (5.7) 

J,  2  iR  ^  Dg 

where  S^  is  the  shock  segment  which  lies  inside  R . 


The  expressions  (5.6)  and  (5.7)  express  the  x  momentum  and  the  mass  produced  by 
a  shock  wave  in  terms  of  the  artificial  viscosity.  The  identity 


kg;^    g,\  _Ak-g,)\     „Ak-g,)\ 

\—2  3-J  -  L       3       J      ^l       2       ^ 

shows  that  the  integral  over  the  shock  segment  in  equation  (5.6)  is  of  second  order  in  the 
shock  strength  imless  [ r-^ — ]  vanishes,  i.e.  unless  mass  is  conserved.   In  order  to  obtain 

St 

a  third  order  expression,  we  cancel  the  second  order  term  by  multiplying  equation  (5.. 7)  by 
K  and  subtracting  it  from  equation  (5.6).  We  then  arrive  at  the  expression 


j.^]£GJ_^  rfy  =  lim  //  {G,-K)-n  dxdy  (5.8) 

If  we  take  S^  to  be  the  whole  shock,  we  can  take  the  region  of  integration  for  the  double 
integral  in  (5.8)  to  be  the  entire  supersonic  zone  D.  We  thus  find 


J3,  =  lim  //  (G,-iS:)Ti  dxdy  (5.9) 

D 

If  the  flow  contains  several  normal  shocks,  the  expression  (5.9)  yields  the  total  wave  drag. 
Mass  is  created  at  the  shock.  It  leaves  the  supersonic  zone  with  x  velocity  K  and  is 
decelerated  to  speed  0  in  the  free  stream,  so  the  correction  term  is  just  the  force  exerted  to 
slow  down  the  excess  fluid. 

3.  Entropy  Condition  and  Alternate  Formolaa 
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The  expression  (5.9)  can  be  used  to  compute  the  wave  drag  in  a  flow  computed  by 
any  artificial  viscosity  method.  For  particular  choices  of  ii  we  can  integrate  the  term  on  the 
left-hand  side  of  (5.8)  by  parts  to  establish  the  entropy  inequality  and  to  obtain  an  alternate 
formula  for  the  wave  drag.  If  we  do  this  for  the  non-conservative  scheme  we  find 


The  positivity  of  the  integrand   (G,-iir)G„2   in  the  supersonic  zone  implies  that  the  expres- 
sion on  the  left  is  non- negative  for  any  rectangle  R,  and  thus  at  each  point  on  the  shock 

(K—G  )^ 
[1 i!—]  s  0,    i.e.  the  entropy  condition  is  satisfied.    By  allowing  Sj(  to  be  the  whole 

shock  we  obtain  the  following  formula  for  the  wave  drag 

D,  =  lim  2  Ax  //  iG,-K)Gj  dxdy  (5.10) 

D 

This  formula  is  appealing  because  the  non-negative  integrand  provides  a  convenient  local 
measure  of  wave  drag  which  is  useful  for  redesigning  wings. 

4.  Wave  Drag  for  the  Potential  Eqaatlon 

An  artificial  viscosity  t]  for  the  potential  equation  yields  a  mass  source  term    -^ri 
and  an  x  momentum  source  term     -^wn.    By  applying  the  divergence  theorem  to  the  x 
momentum  equation  we  arrive  at  the  following  expression  for  the  total  force  on  the  airfoil: 

-Ipdy  =  SS  («-u.)-^Ti  dxdy  (5.11) 

AD  C 

In  order  to  get  the  third  order  expression  for  the  wave  drag  we  must  subtract  from  the  right- 
hand  side  of  (5.11)  the  term 
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D     C^ 


which  is  the  force  which  decelerates  the  excess  mass.  We  obtain 

D,  =  lim  //  («-c.)-^T1  dxdy  (5.12) 

For  certain  choices  of  t]  we  can  integrate  by  parts  to  prove  the  entropy  inequality 
and  to  obtain  an  expression  with  a  non-negative  integrand  as  in  the  small  disturbance  case. 
In  general  the  expressions  are  complicated.  The  standard  non-conservative  form  of  the  artifi- 
cial viscosity  for  a  rectangtJar  grid  is 

In  this  case  we  have  for  a  normal  shock 


D„  =  lim2  ^  //  -^<|)„2(„2_^2)  ^y  (5.13) 

where  we  have  omitted  terms  of  fourth  and  higher  orders  in  the  shock  strength. 


5.  Implementation 

In  practice  we  have  found  expressions  like  (5.13)  preferable  to  the  general  expres- 
sion (5.12)  because  the  non- negative  integrand  provides  a  local  measure  of  wave  drag  which 
can  be  used  to  locate  and  plot  shocks  (cf.  Fig.  8).  Simplifications  were  necessary  to  derive 
(5.13)  from  (5.12)  and  in  general  even  greater  simplifications  are  required  to  obtain  an 
expression  with  a  non-negative  integrand.  The  use  of  the  integral  in  (5.12)  as  the  approxima- 
tion to  the  wave  drag  does  have  the  advantage  that  it  is  easy  to  implement  for  any  choice  of 
the  artificial  viscosity.  In  the  case  where  ■r\  is  obtained  by  retarded  differencing,  we  can 
evaluate  t|  to  second  order  in  the  grid  size  by  evaluating  the  right-hand  side  of  the  expression 


-32- 

with  centered  differences.   W?  -^e  centered  differences  for  the  other  factors  in  the  integrand 
also,  and  evaluate  the  integral  using  the  trapezoid  rule. 

There  are  two  factors  that  complicate  our  search  for  an  expression  with  a  non- 
negative  integrand,  the  mapping  to  computational  coordinates  and  the  use  of  rotated  differ- 
ences. When  rotated  differences  are  necessary,  i.e.  when  the  shock  position  differs  substan- 
tially from  a  line  x=constant,  a  slighdy  modified  form  of  equation  (5.12)  still  applies  as  long 
as  there  is  no  appreciable  velocity  component  tangent  to  the  shock.  In  this  case  we  know  of 
no  general  expression  with  a  positive  integrand.  Retarded  differencing  in  a  computational 
domain  introduces  an  artificial  viscosity  which  depends  on  the  mapping  functions.  Neverthe- 
less in  many  cases,  e.g.  for  two-dimensional  calctilations  based  on  a  mapping  to  a  circle  and 
for  three-dimensional  calculations  in  sheared  parabolic  coordinates  such  as  are  used  in  our 
code,  plausible  assumptions  can  be  made  which  allow  us  to  obtain  a  formula  of  the  desired 
type.  The  details  of  the  implementation  of  the  wave  drag  formula  in  the  code  NACROSS  are 
discussed  in  Chapter  7. 
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6.  Free  Boandary  Design  Problem 


1.  Free  Bouadary  Eqaation 

We  redesign  a  given  wing  for  flight  at  fixed  conditions  by  treating  the  upper  wing 
surface  as  a  free  boimdary  which  is  adjusted  so  that  a  specified  smooth  pressure  distribution 
is  assumed.  We  specify  a  smooth  pressure  distribution  which  is  close  to  the  original  distribu- 
tion for  the  wing,  so  we  expect  only  small  changes  to  the  wing  surface  to  be  necessary. 

U  y  =  f(x,y)  is  the  equation  of  the  wing  surface,  the  free  boundary  condition  may 
be  written  as 

Q(f,f.,f:)  =  %\^,^)  -  <iHx,z)  =  0 

where  q^  is  the  specified  speed  distribution  (recall  that  any  one  of  the  pressure,  speed,  and 
Mach  number  determines  the  other  two,  by  Bernoulli's  law).  We  consider  the  relaxation 
iterations  to  be  steps  in  an  artificial  time  parameter  t .  The  function  /  is  allowed  to  vary 
with  t  according  to  the  rule 

fli/«  +  oif,  =  G  +  ^3  QfQ,  +  a,  QfQ, 

This  nile  is  based  on  results  from  linearized  subsonic  theory  [12,13].  The  constants  a^  have 
been  adjusted  empirically  to  obtain  convergence.  Davis  [8]  presents  a  general  discussion  of 
surface  modiHcation  rules  for  transonic  flows  that  suggests  the  addition  of  the  term  f„.  In 
addition  we  impose  the  constraint 


f^fo 


-34- 

where  /o  is  an  inner  wing  structure.   A  Lax-Wendroff  finite  difference  scheme  is  used  for 
the  computation  of  /  [12]. 

In  practice  it  is  never  necessary  to  iterate  to  convergence.  In  fact  this  may  lead  to 
difficulties.  We  terminate  the  design  procedure  once  the  pressure  profile  has  been  readjusted 
and  the  wave  drag  has  been  reduced  to  an  acceptable  level. 

2.  Exponential  Splines 

In  order  for  the  free  boundary  iteration  to  be  a  practical  design  tool  we  must  have  a 
way  of  specifying  reasonable,  smooth  pressiire  distributions  using  a  manageable  number  of 
parameters.  The  Mach  number  profile  in  Rg\ire  14,  which  is  the  design  condition  profile  of 
the  supercritical  airfoil  75-05-13,  is  typical  of  ihockless  Mach  number  distributions.  The 
Mach  number  rises  rapidly  from  zero  at  the  stagnation  point  to  a  peak  at  the  front  of  the 
supersonic  zone.  It  is  nearly  constant  in  the  supersonic  zone,  and  it  falls  steeply  but  smoothly 
through  sonic  speed  to  its  trailing  edge  value.  Such  distributions  can  be  characterized  by  four 
values;  M  near  the  leading  edge,  at  the  trailing  edge,  at  the  front,  and  at  the  rear  cf  the 
supersonic  zone. 

By  using  a  weighted  exponential  spline  we  can  construct  typical  smooth  Mach 
number  distributions  from  the  four  characteristic  values.  The  exponential  spline  we  use  is  a 
twice  continuously  differentiable  function  M  which  is  a  piecewise  solution  of  the  ordinary  dif- 
ferential equation 

■      '  -EM""  +  M"  =  G 

Here  A/  is  a  generalization  of  the  common  cubic  spline,  which  results  as  £  -  «.  The  param- 
eters E  and  G  are  adjusted  to  acheive  the  correct  shape  between  the  specified  values  of  M. 
The  parameter  G  controls  the  curvature,  and  E  controls  the  amount  of  oscillation,  with 
small  E   giving  low  oscillatiou.  Tlie  values  of  these  parameters  have  been  empirically  fixed 


-  35  - 
in  the  code. 

For  a  design  run  of  the  code,  values  of  the  Mach  number  at  four  chord  locations  are 
specified  at  any  desired  number  of  span  stations,  and  are  interpolated  linearly  for  other  span 
stations.  Then  at  each  span  station  an  exponential  spline  is  used  to  define  the  Mach  number 
along  the  chord.  The  second  derivative  of  the  spline  is  set  to  zero  at  the  leading  edge,  as  is 
the  third  derivative  at  the  trailing  edge. 

3.  Specification  of  Smooth  Pressnre  Distribotions 

In  this  section  we  present  some  guidelines  about  the  specification  of  smooth  Mach 
number  distributions  for  the  free  boundary  design  iteration.  These  are  based  on  experience, 
and  we  stress  that  any  design  problem  may  have  imique  features  which  require  special  con- 
sideration. An  example  is  the  additional  twisting  which  we  foxmd  to  be  necessary  for  the 
succesful  redesign  of  a  wing  near  a  nacelle  (see  Chapter  8).  At  this  point  readers  who  expect 
to  use  the  code  are  advised  to  read  through  the  glossary  of  TAPE  9  parameters  in  Chapter  10 
to  familiarize  themselves  with  the  input  format.  Section  10.2  contains  a  sample  plot  of  the 
Mach  number  distribution  in  a  span  station,  along  with  a  list  of  the  Mach  number  as  a  func- 
tion of  chord  location  in  square  root  coordinates  (X^  ,  y^ ,  Zj.  This  output  from  an  analysis 
run  is  the  basis  for  constructing  design  input. 

For  a  design  run,  Mach  number  distributions  must  be  specified  at  the  root  section 
and  the  tip  section,  and  may  be  specified  at  any  number  of  span  stations  in  between.  There 
are  7  numbers  that  determine  the  input  distribution  in  a  span  station,  namely  the  four  Mach 
number  values  A/,  ,  and  three  locations  P,  in  units  of  the  local  chord  at  which  the  3/,  are 
specified.  The  last  value  M^  is  the  Mach  number  at  the  trailing  edge.  The  P,  are  actually 
read  in  as  percentages  of  chord  in  square  root  coordinates,  but  this  provides  no  difficulty 
because  the  chord  locations  are  provided  as  output  from  a  prior  run  (see  Section  10.2). 
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The  location  P^  is  aii.ays  chosen  near  the  leading  edge  in  front  of  the  supersonic 
zone.  Both  M^  and  A/4  should  ;  e  chosen  just  below  the  corresponding  values  from  an  ini- 
tial analysis  run  in  order  to  leave  the  wing  unaffected  near  the  leading  and  trailing  edges.  In 
most  cases  there  are  natural  choices  for  P2  and  F^  suggested  by  supercritical  wing  theory. 
Generally  P2  should  be  the  location  of  the  peak  Mach  number  near  the  front  of  the  super- 
sonic zone,  and  P^  should  be  the  location  of  a  second  peak,  which  generally  occurs  just 
ahead  of  the  shock  which  terminates  the  supersonic  zone. 

For  a  swept  wing  with  a  straight  leading  edge  we  have  found  that  the  Mach  number 
distribution  along  the  chord  between  about  12%  and  75%  span  varies  little  along  the  span. 
Near  the  wing  tip,  Mach  relief  causes  a  change  in  the  distribution  as  well  as  a  decrease  in 
shock  strength.  The  distribution  at  the  wing  root  differs  substantially  from  the  mid-wing  dis- 
tributions near  the  leading  edge,  for  it  fails  to  have  a  peak.  Thus  we  have  three  span  seg- 
ments along  which  different  distributions  must  be  specified. 

Most  of  the  wave  drag  is  contributed  at  sections  between  12%  and  75%  of  the  span, 
and  it  is  at  these  sections  that  the  design  routine  makes  the  greatest  improvements.  We  try  to 
specify  a  peaky,  smooth  Mach  number  distribution  which  is  close  to  the  original  distribution. 
In  order  to  obtain  the  peak  characteristic  of  shockless  distributions  we  choose  Mj  to  be 
larger  than  the  corresponding  value  from  an  analysis  run.  For  shocks  of  the  magnitude  of 
the  one  pictured  in  Figure  8  (wave  drag  of  60  counts),  we  found  that  a  10%  to  15%  inrrease 
for  M2  is  appropriate.  The  value  of  3/3  should  be  chosen  substantially  lower  than  the  peak 
Mach  number  ahead  of  the  shock.  We  recommend  a  value  just  below  the  average  of  the 
peak  value  near  the  shock  and  the  minimmn  value  near  mid-chord.  We  generally  specified 
distributions  at  three  span  locations  in  the  mid-span  region,  although  two  may  be  suffidsnt  in 
many  cases.  However  in  some  cases,  e.g.  when  a  nacelle  is  present,  it  may  be  necessary  to 
specify  the  distribution  at  more  sections  to  account  for  rapid  variations  in  the  distribution 
along  the  span. 
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At  the  wing  root  it  is  not  possible  in  general  to  achieve  a  peaky  Mach  number  distri- 
bution because  of  the  pointed  shape  of  the  planform  there.  It  is  thus  difficult  to  eliminate  the 
shock  at  the  root  section  without  taking  elaborate  special  measures.  We  usually  chose  M2 
about  10%  higher  than  the  corresponding  original  value,  and  M-^  =  M^  .  We  found  no  sim- 
ple scheme  which  was  more  effective  than  this.  Garabedian  and  McFadden  were  able  to 
greatly  reduce  the  shock  at  the  root  by  straightening  the  wing  there,  i.e.  by  not  beginning  to 
sweep  back  the  wing  until  about  12%  of  the  span  (cf.  [13]  and  Figures  3  2nd  4  in  [12]). 

Near  the  wing  tip  the  shocks  are  usually  quite  weak,  so  we  have  had  reasonable  suc- 
cess by  simply  turning  off  the  design  procedure  there.  This  is  done  by  specifying  such  small 
Mach  numbers  that  the  free  boundary  is  driven  down  onto  the  inner  wing  structure,  and  by 
making  the  inner  wing  structure  correspond  to  the  original  wing  (see  DSURF  in  the  TAPE  9 
glossary).  Note  that  to  turn  off  the  design  feature  it  is  not  sufHcient  to  specify  a  zero  Mach 
number  distribution  at  the  wing  tip;  one  must  also  specify  a  zero  distribution  at  the  first  span 
station  ot  be  left  alone,  and  a  realistic  distribution  at  the  previous  station.  Sometimes  weak 
but  noticeable  shocks,  like  the  one  shown  in  Figure  10,  form  near  the  tip  when  the  design 
feature  is  turned  off  there,  so  we  generally  leave  it  on.  The  gmdlines  for  choosing  Mj  and 
A/3  at  the  mid-span  stations  also  apply  near  the  tip. 

If  a  nacelle  is  present,  special  redesign  considerations  must  be  made.  The  spanwise 
lift  distribution  will  be  altered  by  the  nacelle  (cf.  Figure  5).  The  original  lift  distribution  can 
be  recovered  by  twiting  the  wing  sections  near  the  nacelle.  This  is  accomplished  with  the 
paramet?r  ALPHA  on  Line  7  of  TAPE  5  (see  the  Glossary).  Section  lift  coefficients  are 
included  in  the  output.  Some  empirical  rule  must  be  used  to  determine  how  much  to  twist 
each  section.  We  used  the  rule  A  ALPHA  -  lOAQ. 
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7.  Compatational  Results 


1.  Redesigned  Wings 

In  this  chapter  we  disaiss  the  results  of  two  sets  of  ts$ts  of  our  code.  Each  set 
started  with  an  analysis  run  followed  by  a  design  run.  Then  another  analysis  run  was  made 
with  a  nacelle  inserted  in  the  flow.  The  Hnal  run  was  a  design  run  with  the  nacelle  in  place. 
For  the  Hrst  set  of  runs  the  nacelle  was  above  and  behind  the  wing,  for  the  second  it  was 
below  and  behind. 

The  development  of  the  code  and  some  crude  grid  tests  were  done  on  a  VAX  11/780 
at  the  Courant  Institute.  The  fine  grid  tests  described  here  were  made  on  the  CRAY  E  com- 
puter of  the  Lawrence  Dvermore  Laboratory  using  a  vectorized  relaxation  routine  which  was 
written  by  F.  Bauer.  Analysis  runs  took,  on  the  average,  6  or  7  minutes  of  CPU  time  on  the 
CRAY,  and  design  runs  took  about  10,  using  a  192x28x24  grid. 

The  wing  we  used  was  based  on  a  supercritical  airfoil  designed  by  J.  Sanz  with  a 
complex  characteristic  hodograph  code  [4].  The  airfoil  was  designed  to  be  shockless  at 
A/„  =  .75  and  C^  =  .5.  The  thickness-chord  ratio  is  .13.  The  leading  edge  was  swept  back 
30°  and  the  wing  was  tapered  linearly  so  the  chord  at  the  vmig  tip  was  .56  of  the  chord  at  the 
root.  The  aspect  ratio  was  3.8. 

Some  corrections  to  the  original  wing  specifications  were  made  to  account  for  three- 
dimensional  effects.   In  order  to  obtain  an  effective  free  stream  Mach  number  of  .75  normal 

75 
to  the  wing  we  divided  .75  by  the  cosine  of  the  mean  sweep  angle  so  A/,  =  .81  =  — '  "L „^ . 

cos (22  ) 

Following  this  reasoning  we  note  that  the  thickness-chord  ratio  of  a  section  in  a  plane  normal 
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to  the  wing  differs  from  the  original  thickness-chord  ratio  by  the  same  factor,  so  we  also 
thinned  the  wing  by  a  factor  of  cos (22').  The  wing  was  twisted  up  2.4'  at  the  root  relative  to 
the  tip. 

Figure  8  shows  the  plotted  output  from  the  initial  analysis  nm.  A  wave  drag  coeffi- 
cient Cdv/  -  0060  is  associated  with  the  strong  shock  wave  which  terminates  the  supersonic 
zone.  In  Figure  9  we  see  the  wing  after  it  has  been  redesigned  using  the  free  boundary 
feature  of  the  code.  The  wave  drag  is  down  to  C^v  =  .0011.  A  weak  shock  remains  near 
the  wing  root.  This  is  typical  of  our  experience  with  the  design  code. 

Figure  10  is  output  from  an  analysis  nm  with  a  nacelle  above  and  behind  the 
redesigned  wing.  The  nacelle  diameter  is  .25  of  the  chord  in  the  span  station  of  the  nacelle. 
A  wave  drag  coefficient  C^v  =  .0028  is  associated  with  the  shock  which  has  reappeared  at 
the  rear  of  the  supersonic  zone.  The  shock  is,  on  the  average,  10%  forward  of  its  position 
on  the  original  wing.  In  the  span  station  of  the  nacelle  it  has  moved  forward  by  16%.  The 
angle  of  attack  was  increased  from  .T  to  2.0"  to  compensate  for  the  loss  of  lift  due  to  the 
presence  of  the  nacelle.  This  has  caused  the  shock  near  the  wing  tip,  which  is  barely  notice- 
able in  Figure  8,  to  increase  in  strength.  The  loss  of  lift  is  not  distributed  uniformly  along 
the  span;  there  is  a  marked  dip  in  the  lift  in  the  span  station  containing  the  nacelle.  Figure  5 
illustrates  the  effect  of  the  nacelle  on  the  lift  distibution.  In  order  to  recover  the  original  lift 
distribution  it  was  necessary  to  twist  the  wing  sections  near  the  nacelle. 

Results  from  the  final  run  in  this  first  set  are  shown  in  Figure  11.  Here  the  wing  of 
Figure  10  has  been  redesigned  with  the  nacelle  in  place.  The  wing  section  in  the  span  station 
of  the  nacelle  has  been  twisted  an  additional  .5'  in  order  to  recover  the  original  lift  distribu- 
tion. The  wave  drag  is  down  to  C^,^  =  .0007,  The  shocks  are  essentially  gone  even  at  the 
wing  root  where  a  shock  persisted  after  our  first  design  run. 

For  the  second  set  of  tests  we  inserted  a  nacelle  of  the  same  size  below  and  behind 
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the  redesigned  wing  of  Figxire  9.  The  results  are  displayed  in  Figure  12.  The  wave  drag  has 
risen  to  Cjjjy  =  .0034.  The  results  of  the  redesign  of  this  wing  with  the  nacelle  in  place  are 
seen  in  Figxire  13.  The  wave  drag  has  been  reduced  to  C^^  =  .0010.  Again  we  have  not 
been  able  to  eliminate  the  shock  at  the  wing  root. 

In  all  cases  we  succeeded  in  eliminating  the  shocks  caused  by  the  presence  of  the 
nacelle  by  first  twisting  the  wing  sections  to  restore  the  lift  distribution,  and  then  invoking 
the  free  boundary  feature  of  the  code.  A  similar  procedure  can  be  used  to  eliminate  the 
shocks  which  form  on  a  helicopter  blade  in  the  presence  of  a  vortex  sheet  trailing  from  the 
preceeding  blade.  The  technique  described  in  Chapter  4  for  modelling  a  nacelle  by  a  source 
can  be  adapted  to  model  a  rolled-up  vortex  sheet  by  a  vortex  filament.  A  code  to  do  this  has 
been  written  and  is  being  tested. 
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HGUREl 
Integration  paths  for  drag  integral 
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nGURE2 
Smeared  shock 
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HGURES 
Graph  of  grid  squeezing  function 
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nGURE4 

Comparison  of  wave  drag  results 
AirfoU  75-05-13 
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HGUREf 
Lift  distributions 


46- 


c 


ENGINE  SECTION 
AT  Z  =  0.223 


ENGINE  SECTION 
AT  Y  =  0.179 


D/C  =  0.315 


o 


T/C  =  0.133 


ENGINE  SECTION 
AT  X  =  0.904 


nGURE6 
Three  views  of  wing  and  nacelle 
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HGURE? 
Coordinate  grid  at  25%  of  the  span 
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UPPER  SURFACE  PRESSURE      WING  AND  SHOCKS 
M  =  .81    CL  =  .50    CDW  =  .0060    A  =  3.8 


HGURES 
Original  wing 
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UPPER  SURFACE  PRESSURE 


WING  AND  SHOCKS 


M  =  .81    CL  =  .50    CDW  =  .0011    A  =  3.8 


nGURE9 
Redesigned  wing 
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UPPER  SURFACE  PRESSURE      WING  AND  SHOCKS 
M  =  .81    CL  =  .50    CDW  =  .0028    A  =  3.8 


HGUREIO 
Wing  with  nacelle  above  and  behind 
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UPPER  SURFACE  PRESSURE 


WING  AND  SHOCKS 


M  =  .81 


;L  =  .50    COW  =  .0007    A  =  3.8 


HGUREll 
Redesigned  wing  with  nacelle  above  and  behind 
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UPPER  SURFACE  PRESSURE      WING  AND  SHOCKS 
M  =  .81    CL  =  .50    CDW  =  .0034    A  =  3.8 


nGURE12 
Wing  with  nacelle  below  and  behind 


53 


UPPER  SURFACE  PRESSURE 


WING  AND  SHOCKS 


M  =  .81    CL  =  .50    CDW  =  .0010    A  =  3.8 


HGUREIS 
Redesigned  wing  with  nacelle  below  and  behind 
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Typical  shockless  pressure  distribution 
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8.  User's  Manoal 


1.  Description  of  the  Code 

The  code  NACROSS  can  be  xised  for  the  analysis  and  redesign  of  a  swept  wing  with 
or  without  an  engine  naceUe.  The  -  basic  analysis  and  design  modes  are  like  those  of 
FL22INV,  except  for  the  adjiistments  and  additions  which  are  described  below  (cf.  [5]). 

For  an  analysis  or  design  run,  the  basic  parameters  describing  the  flow  conditions, 
the  wing  geometry,  and  the  characteristics  of  the  numerical  scheme  are  entered  on  TAPE5. 
For  a  design  run,  the  parameters  describing  the  Mach  number  distribution  and  the  free  boun- 
dary iteration  are  entered  on  TAPE  9.  In  either  case  the  nacelle  data  are  entered  on  two 
files,  TAPE  50  and  TAPE  51.  Runs  can  be  continued  by  using  a  stored  potential,  which  will 
have  been  written  on  TAPE  7  at  the  end  of  a  prior  run,  as  input  on  TAPE  8.  A  new  feature 
of  the  code  is  that  the  coordinates  of  a  redesigned  wing  are  written  on  TAPE  18  at  the  con- 
clusion of  each  design  run  and  may  be  used  as  input  to  another  run  on  TAPE  19. 

A  description  of  each  input  parameter  is  given  in  the  glossaries  in  Chapter  9. 
Chapter  10  contains  input  and  output  samples. 

For  every  run  the  nacelle  data  and  grid  squeezing  data  must  be  supplied.  If  the 
source  strength  is  zero,  there  is  no  nacelle,  so  the  rest  of  the  naceUe  input  is  ignored.  If  the 
source  strength  is  not  zero,  the  physical  coordinates  of  the  source  must  be  supplied.  A  sim- 
ple way  of  determining  the  physical  coordinates  is  to  make  an  analysis  run  with  the  desired 
wing,  the  output  of  which  will  include  the  wing  coordinates  in  the  square  root  plane  and  the 
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sheared  parabolic  grid  coordinates.  From  these  the  physical  coordinates  can  be  computed  by 
the  formulas  in  Chapter  3. 

There  are  two  source  points  used  for  the  nacelle.  The  first  is  located  at  the  grid 
point  closest  to  the  input  source  coordinates  (so  the  input  coordinates  need  not  be  mesh 
points).  The  second  is  at  the  next  grid  point  downstream.  The  code  sets  up  the  grid  and  then 
locates  the  source  points.  After  that  the  coordinate  grid  is  recomputed  with  the  grid 
squeezed  near  the  source  according  to  the  input.  At  the  end  of  a  run  the  results  of  a  stream- 
line tracing  routine,  which  indicate  the  size  and  location  of  the  nacelle,  are  listed  and  may  be 
plotted. 

The  far  field  boundary  condition  on  the  control  surface,  which  was  described  in 
Chapter  3,  is  implemented  with  first  order  differences.  For  example,  on  the  surface  ^  =r„ 
the  condition 

Gy+i  =  (1  -  AyP^.)Gy 

is  applied,  where  j+1  is  the  index  of  a  dummy  point  beyond  the  control  surface.  Values  of 
3,  ,  Pj,  ,  and  p^  which  were  determined  empirically  for  FL22INV  have  been  retained.  A 
coding  error  in  FL22INV  which  caused  the  position  of  the  control  surface  to  vary  with  the 
mesh  size  has  been  corrected. 

Chang  and  Tauber  [6]  discovered  an  error  in  the  equations  in  the  computational 
domain  which  was  made  in  the  original  code  FL022.  The  scale  factor  s  (  SCAL  in  the  code  ) 
was  omitted  in  the  expressions  R^  and  /?2  ^o'  lower  order  terms  (see  Section  3.1)  This  factor 
multiplies  the  second  derivatives  of  the  singular  line  coordinates  and  affects  the  planform  of 
the  wing.  These  derivatives  are  zero  for  wings  with  straight  leading  edges,  so  such  wings 
were  not  affected  by  the  bug.  The  error  has  been  corrected  in  our  code  according  to  their 
specifications. 
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We  have  added  to  the  code  an  algorithm  to  acheive  a  specified  lift  coefficient  C^. 
The  iteration  relaxes  the  angle  of  attack  as  a  function  of  Q  with  a  small  relaxation  parame- 
ter. This  iteration  was  found  to  converge  quite  slowly.  In  all  cases  it  was  quicker  to  adjust 
the  angle  of  attack  by  hand  according  to  some  empirical  rule.  Nonetheless,  the  option  has 
been  retained  (  see  the  parameter  CLTARG  in  the  TAPE  5  glossary  ). 

In  Section  5.5  we  discussed  a  method  to  express  the  wave  drag  as  a  triple  integral  of 
a  positive  entropy  term.  Here  we  describe  the  approximations  which  have  been  made  in 
order  to  obtain  such  a  formula  for  use  in  the  code.  The  wave  drag  computation  is  carried  out 
in  the  subroutine  DRAGC. 

The  rotated  retarded  scheme  in  mapped  coordinates  introduces  a  first  order  artificial 
viscosity  for  the  potential  equation  in  physical  coordinates  which  is  given,  in  the  notation  of 
Section  5.4,  by 

^  =  -77^717^4  -  i)(^(^m)  +  (B{^yG^)  +  •  •  • ) 

where  i4,  B  ,...  are  related  to  the  coefficients  of  the  mapped  equation  (  see  Section  3.1 ).  We 
do  the  integration  in  computational  coordinates,  so  we  need  the  Jacobian 

^    dX  dY  dZ 
Equation  (5.12)  yields 

".  =  ///  («  -  -)^(-^  -  IK^-C^m)  *■■■  )".f  f  f  ^^^ 

where  D  is  the  supersonic  zone.   We  assume  that  only  the  X  derivatives  are  non-negligible, 
that  shcclcs  occur  only  above  the  wing,  and  that  most  of  the  drag  is  contributed  by  points 

near  the  wing  surface.    This  implies  that  •=^  =  1,  y^  =  0,  and  that  rarefaction  waves  are 
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characterized  by  the  condition  Gj^  >  0.  From  these  assumptions  we  have 


u  =  cosa  +  -— 


and 


D„  =  Ax///  (-^  +  cosa  -  c.)AG^-^(^  -  \)ss ,^^<DCdYdZ 
D       ^l  c^    q  ai  dZ 

If  we  now  integrate  by  parts  in  the  variable  X  and  omit  terms  of  foxirth  and  higher  orders  in 
the  shock  strength  we  obtain 


D^  =  2A.///  G^^A^^Cl  -  ^)ss,^^<nCdYdZ 

D  c'  ■*!  q^        ax  dZ 

Gvv  —    \Gvy\ 

In  the  code  we  replace  G^  by in  order  to  eliminate  erroneous  contributions 

from  rarefaction  waves. 


An  error  in  the  implementation  of  the  trapezoid  rule  integration  for  the  wave  drag  in 
FL22INV  was  pointed  out  by  G.  McFadden,  and  has  been  corrected.  This  error  caused  both 
the  section  and  total  wave  drag  coefficients  to  be  too  large  almost  by  a  fartor  of  2. 

A  comparison  has  been  made  between  the  wave  drag  results  from  our  code 
NACR.OSS  and  those  from  the  iwo-dimensional  analysis  code  H  [4],  which  has  been  com- 
pared with  experiments  [5].  This  was  done  with  the  airfoil  75-05-13.  For  the  three- 
dimensional  runs  we  used  a  straight  wing  of  aspect  ratio  40.  The  results  of  the  comparison, 
which  are  graphed  in  Figure  4,  were  good. 

Two  types  of  paper  output  are  produced  by  the  code,  printed  output  on  TAPE  6, 
and  plots.  On  the  CRAY  we  used  the  TV80  plotting  package.  If  this  package  is  not  avail- 
able, the  user  will  have  to  replace  the  plotting  routines  either  with  those  from  another  plot- 
ting package  or  with  dummy  subroutines.   Three  plots  may  be  produced.  The  first  shows  the 
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wing  sections,  shocks,  and  the  nacelle.  The  second  shows  the  coordinate  grid  in  the  span  sta- 
tion which  contains  the  nacelle  source.  The  third  shows  three  views  of  the  wing  and  nacelle 
(see  Figures  6,7,and  8).  To  get  all  of  the  plots  set  the  TAPE  5  parameter  FPLOT  to  2.  To 
get  only  the  first  one,  FPLOT  =  1,  and  for  no  plots  FPLOT  =  0. 

The  reader  is  advised  to  glance  at  the  sample  output  which  is  included  after  the  glos- 
sary while  he  reads  this  section. 

The  TAPE  6  output  starts  with  a  printout  of  the  TAPE  5  input  parameters  and  the 
nacelle  and  grid  squeezing  data.  For  a  design  run  the  TAPE  9  parameters  appear  also. 

Next  a  chart  of  the  wing  and  vortex  sheet  surface  in  the  sheared  sqiiare  root  coordi- 
nate plane  y  =  0  is  printed.  On  this  chart,  a  2  represents  a  point  on  the  wing,  a  1  represents 
a  point  on  the  vortex  sheet,  -1  appears  on  the  boundary  of  the  wing/vortex  sheet  surface,  0 
represents  a  point  on  the  sin£;iilar  line,  and  -2  appears  at  all  other  points. 

Then  the  coordinates  of  the  wing  surface  in  square  root  coordinates  are  printed. 
These  are  followed  by  the  Y  grid  positions  in  sheared  square  root  coordinates,  and  the  Z  grid 
locations  and  singular  line  data.  This  information  will  be  used  along  with  the  transformation 
formulas  from  Chapter  3  to  determine  nacelle  positions. 

A  record  of  the  relaxation  and  design  iterations  is  next.  This  is  followed  by  a  chart 
of  the  local  wave  drag  on  the  wing  surface  (see  Chapter  5).  On  this  chart  dots  represent  sub- 
sonic points.  At  each  supersonic  point  an  integer  is  printed  which  indicates  the  relative 
amount  of  wave  drag  at  that  point.  Shocks  are  easily  identified  on  this  chart  as  regions  with 
non-zero  entries. 

Next,  for  each  span  station  in  the  grid,  a  graph  is  plotted  of  the  upper  surface  pres- 
sure and  the  wing  surface  in  square  root  coordinates.  This  is  accompanied  by  a  listing  of  the 
Mach  number  as  a  function  of  percent  chord  in  square  root  coordinates.   This  information 
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provides  the  basis  for  the  construction  of  smooth  Mach  number  distributions  for  design  runs. 
For  design  nms,  the  prescribed  Mach  number  distribution  is  also  listed,  along  with  an  indica- 
tion of  the  points  at  which  the  design  feature  was  applied,  i.e.  those  points  at  which  the  wing 
surface  is  above  the  specified  inner  wing  (see  section  6.1). 

Hnally,  a  summarization  of  the  wing  and  flow  characteristics  is  printed,  including 
the  lift,  drag,  and  wave  drag  coefficients,  and  the  rolling  and  pitching  moments. 

2.  Geometry 

There  are  two  ways  to  specify  the  wing  geometry  for  a  run.  The  geometry  may  be 
specified  using  TAPE  5.  This  mode  must  be  used  for  the  first  run  with  any  wing.  The  coor- 
dinates of  a  redesigned  wing  are  written  on  TAPE  19  at  the  end  of  each  design  run.  By  set- 
ting the  TAPE  5  parameter  SURFCONT  to  1  these  coordinates  may  be  used  to  define  the 
wing  for  another  nm.  The  input  device  for  this  file  is  TAPE  18,  so  some  external  file  assign- 
ment considerations  are  necessary.  When  TAPE  18  coordinates  are  used,  When  TAPE  18 
coordinates  are  used,  the  TAPE  5  wing  geometry  data  are  ignored.  In  this  case  it  is  impor- 
tant that  the  singular  line  data,  (SWEEP1,SWEEP2,SWEEP,XSING,  and  YSING),  be  identi- 
cal to  the  singular  line  data  for  the  original  wing. 

To  define  the  wing  using  TAPE  5  parameters,  we  specify  wing  section  data  at  the 
wing  root,  the  wing  tip,  and  at  as  many  span  stations  between  as  we  like.  For  each  span  sta- 
tion, five  input  lines  as  defined  in  the  glossary,  (Lines  7  through  11),  may  be  used  to  specify 
the  section  characteristics.  However  if  the  section  at  a  span  station  is  simply  a  scaled, 
shifted,  and  twisted  copy  of  the  section  at  the  previous  span  station,  only  one  line,  Line  7,  is 
required.  Thus,  e.g.,  if  the  same  section  shape  is  desired  at  all  span  stations,  Lines  7  through 
11  must  be  specified  for  the  root  section,  but  only  Line  7  is  necessary  at  the  other  span  sta- 
tions (see  examples  at  the  end  of  the  glossary). 
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The  wing  coordinates  on  Lines  10  and  11  are  rescaled  by  the  code,  so  that  the  chord 
is  equal  to  the  CHORD  parameter  on  Line  7.  Thus  the  wing  section  need  not  be  scaled 
before  it  is  used  as  input.  The  section  is  thinned  or  thickened  uniformly  by  a  factor  THICK, 
twisted  relative  to  the  plane  )>  =  0  by  an  angle  ALPHA,  and  shifted  so  that  its  leading  edge  is 
at  XLE.YLE.  The  wing  can  be  swept  by  varying  XLE  as  a  function  of  the  span.  The 
dihedral  angle  is  determined  by  the  values  of  YLE.  Tapering  of  the  wing  is  acheived  by 
varying  CHORD  as  a  fimction  of  the  span. 

In  each  span  station  for  which  section  coordinates,  (Lines  10  and  11),  are  provided, 
the  coordinates  of  the  singular  line  XSING  and  YSING  must  also  be  given  (Line  9).  This 
point  is  given  in  the  same  unsealed  coordinates  as  the  wing  section.  The  point  should  be 
placed  symmetrically  between  the  upper  and  lower  surfaces.  Its  distance  from  the  leading 
edge  should  equal  the  radius  of  curvature  of  the  wing  section  at  the  leading  edge.  The 
parameters  SWEEPl,  SWEEP2,  and  SWEEP  are  the  sweep  angles  of  the  singular  line  at  the 
wing  root,  the  wing  tip,  and  in  the  far  field.  The  first  two  should  generally  equal  tlie  sweep 
angles  of  the  leading  edge  at  the  corresponding  positions.  Generally  SWEEP  should  equal 
SWEEP2.  The  analogous  rules  hold  for  DIHEDl,  DIHED2,  and  DIHED. 

3.  Contlnalng  a  Ran 

In  order  to  use  a  potential  computed  in  one  run  as  the  initial  guess  in  another,  set 
the  TAPE  5  parameter  FCONT  to  1.  The  potential  is  written  on  TAPE  8  at  the  end  of  each 
run.  This  file  is  used  as  input  on  TAPE  7  so  some  external  file  assignment  considerations  are 
necessary. 

4.  Design 

If  the  TAPE  5  parameter  NDES  is  greater  than  0,  NDES  design  iterations  are  made. 
Each  design  iteration  is  followed  by  MIT  relaxation  iterations.  The  recommended  values  are 
MIT  =  9  or  10.   Line  3,  which  is  omitted  from  the  TAPE  5  file  otherwise,  must  be  included 
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for  a  design  nm.  Recommended  values  for  the  parameters  on  Line  3  are  provided  in  the 
glossary,  and  situations  in  which  these  must  be  altered  are  rare.  K  the  residua]  grows  large 
during  a  design  run,  increasing  MTT  may  help,  but  it  is  likely  that  the  prescribed  Mach 
number  distribution  is  unrealistic. 

For  a  design  nm  a  TAPE  9  file,  which  is  not  needed  otherwise,  must  be  provided. 
This  file  contains  data  for  the  specified  Mach  nimiber  distribution  and  for  the  inner  wing 
structure.  A  gxiide  to  the  construction  of  Mach  number  distributions  is  presented  in  section 
6.3.  The  inner  wing  structure  coincides  with  the  wing  in  each  section  except  on  the  upper 
wing  surface  between  the  chord  locations  PCSl  and  PCS2,  (see  the  TAPE  9  glossary),  in 
square  root  coordinates.  Between  these  locations  the  inner  surface  lies  at  a  depth  DSURF 
below  the  wing  surface  in  square  root  coordinates.  DSURF  should  be  chosen  between  0  and 
.003.  The  location  PCSl  should  be  between  PCMl  and  PCM2,  and  PCS2  should  be  between 
PCM3  and  the  trailing  edge. 

5.  Nacelle  ^ 

For  every  run,  TAPE  50  and  TAPE  51,  which  contain  nacelle  and  grid  squeezing 
data  respectively,  must  be  supplied.  If  STRENGTH  =  0  on  TAPE  50,  the  nacelle  feature  is 
turned  off  and  the  remaining  variables  are  ignored.  To  insert  a  nacelle  in  the  flow  set 
STRENGTH  equal  to  the  desired  nacelle  diameter  expressed  as  a  fraction  of  the  chord  in  the 
span  station  in  which  the  nacelle  is  to  be  centered.  The  coordinates  of  the  first  source  point, 
XSOURCE,  YSOXJRCE,  and  ZSOURCE,  should  be  chosen  so  that  the  source  point  is 
approximately  16%  of  the  diameter  downstream,  (in  the  positive  x  direction),  of  the  desired 
position  of  the  nose  of  the  nacelle.  If  STRENGTH  is  too  large,  cavitation  may  occur  in  the 
vicinity  of  the  source,  causing  divergence  of  the  relaxation  scheme.  This  will  not  occur  for 
any  reasonable  nacelle  size,  say  STRENGTH  ^  1. 

When  NY  a  28  we  found  that  no  shrinkage  of  the  grid  was  necessary  in  the  y  direc- 
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tion,  i.e.  SHRY  =  1  is  fine.  For  NY  =  14,  SHRY  =  .7  is  recommended.  For  NY  <  28 
interpolate  or  extrapolate  linearly  from  these  two  values.  In  the  Z  direction,  SHRZ  can  be 
set  to  1  for  NZ  a  24.  For  NZ  =  12,  SHRZ  =  .6  is  recommended,  interpolate  or  extrapolate 
linearly  for  other  values.  The  parameters  NSHY  and  NSHZ,  the  nxmiber  of  grid  lines  in 
each  direction  at  which  the  shrinking  function  is  applied,  should  be  3.  Larger  values  are  fine, 
but  generally  unnecessary.  It  may  be  necessary  to  use  the  value  2  in  some  cases  in  order  to 
ensure  that  the  planes  y  =  0  and  Z  =  0  are  excluded  from  the  region  where  the  shrinking 
functions  are  applied. 
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9.  Glossaries 


1.  TAPE  5  Parameters 

Each  line  below,  except  for  Line  0,  consists  of  at  least  two  lines  of  input,  the  first  of 
which  is  used  for  titles  to  describe  the  data  (see  the  samples  in  Chapter  10).  Line  0  consists 
of  a  single  line,  and  Lines  10  and  11  each  consist  of  a  title  followed  by  several  data  lines.  All 
of  the  variables  are  entered  in  the  format  F10.6,  including  the  integers,  which  are  converted 
in  the  code. 

Line  0:  Title  used  as  heading  for  output. 


Line  1: 


NX 


NY 


NZ 
FPLOT 


XSCAL,  PSCAL 
FCONT 


The  number  of  mesh  intervals  in  the  direction  of  the  chord. 
NX  =  0  causes  termination  of  the  program. 

The  number  of  mesh  intervals  in  the  direction  normal  to  the  chord 
and  span. 

The  nuimber  of  mesh  inters  als  in  the  span  direction. 

Controls  the  plots.  A  print  plot  of  the  computed  pressure  profile 
is  made  for  all  values  of  FPLOT. 

FPLOT  =  1  produces  a  plot  of  the  wing  with  shocks  and  nacelle. 

FPLOT  =  2  produces  plots  of  the  wing  with  shocks  and  nacelle, 
three  views  of  the  wing  and  nacelle,  and  the  coordinate  grid  in  the 
span  station  of  the  source. 

Scale  parameters  for  the  plots.  Recommended  value  0  for  both. 

Determines  the  initialization  of  the  potential. 

FCONT  =  0  begins  the  nm  at  iteration  0  with  the  potential  initial- 
ized  by  the  code. 

FCONT  =  1  continues  the  run  from  a  previous  calculation.  This  is 
necessary  for  a  design  run.  The  potential  is  read  irr  on  Tape  7. 
This  file  was  written  out  as  Tape  8  during  the  previous  run. 


Line  2: 
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MIT  For  an  analysis  run,  i.e.  when  NDES  =  0  (see  below),  MIT  is  the 

itiHTifnuTTi  number  of  relaxation  iterations.  For  a  design  run  MTT 
is  the  number  of  relaxation  iterations  per  design  iteration. 

COV  The  desired  accuracy.  If  the  maximum  correction  is  less  than  COV 

the  calculation  terminates  or  proceeds  to  a  finer  mesh. 

PIO  The  subsonic  relaxation  factor.   PIO  must  lie  between  1  and  2  and 

should  be  increased  linearly  toward  2  with  mesh  refinement. 

P20  The  supersonic  relaxation  factor  for  the  velocity  potential. 

P20  s  1,  P20  =  1  is  recommended. 

P30  The  relaxation  factor  for  the  circulation.  The  recommended  value 

is  1. 

BETA  The  damping  factor  which  controls  the  amount  of  added  ^„ 

(  cf.  [16]).  Recommended  values  between  0  and  0.25. 

FHALP  Mesh  refinement  parameter. 

FHALP  =  0  terminates  the  computation  after  MTT  iterations  or 
after  convergence. 

FHALF  ^  0  halves  the  mesh  after  MTT  iterations  or  after  conver- 
gence. An  additional  Line  2  is  required  for  each  mesh  refinement. 
FHALF  =  0  on  the  last  Line  2. 

NDES  '  The  nimiber  of  surface  modification  iterations.  MIT  relaxation 

iterations  (see  above)  are  made  after  each  surface  modification. 
MTT  =  10  is  recommended.  Line  3  appears  in  the  input  if  and  only 
if  NDES  >  0. 

NDES  =  0  for  an  analysis  nm. 
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Line  3:  Parameters  for  the  free  boundary  iteration.  This  line  appears  only  for  design  runs. 


TSTEP 
FOO 

FIO 

FOPT 


TSTEP  times  the  mesh  size  in  the  X  direction  is  the  time  step  for 
the  free  boundary  iteration.  The  recommended  value  is  0.03. 

The  coefficient  multiplying  the  first  order  time  derivative  in  the 
free  boundary  equation.  This  term  dominates  for  subsonic  flow. 
The  recommended  value  0.16. 

The  coefficient  of  the  mixed  x  and  t  derivative  in  the  free  boun- 
dary equation.  This  term  controls  the  convergence  for  supersonic 
flow.  The  recommended  value  is  -1. 

Optimization  parameter. 

FOFT  =  0  for  a  standard  design  nm. 

FOPT  >  0  invokes  the  optimizer. 


Line  4: 

FMACH 
YAW 
ALPHA 
CDO 

SURFCONT 


The  free  stream  mach  number. 

The  yaw  angle  of  the  wing  in  degrees. 

The  angle  of  attack  in  degrees. 

The  estimated  skin  friction  drag.  This  is  added  to  the  drag  calcu- 
lated by  the  program  to  give  the  total  drag. 

Wing  geometry  initialization  parameter. 

If  SURFCONT  =  0  the  wing  is  constructed  from  the  data  specified 
below. 

If  SURFCONT  =  1  wing  coordinates  which  were  written  on 
TAPE  18  during  a  prior  design  nm  will  be  read  in  on  TAPE  19 
and  used. 


Line  5: 


CLTARG 


Specified  value  of  the  lift  coefficient.    The  recommended  value, 
CLTARG  =  -999,  turns  off  the  lift  iteration. 


Line  6: 
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ZSYM 


NC 
SWEEPl 

SWEEP2 

SWEEP3 
DIHEDl 

DIHED2 

DIHED3 


This  indicates  whether  an  isolated  wing  or  a  wing  on  a  wall  is 
being  considered. 

ZSYM  =  0  for  an  isolated  wing;  obsolescent. 

ZSYM  =  1  for  a  wing  on  a  wall. 

The  number  of  span  stations  at  which  the  wing  section  is  deHned. 

SWEEPl  is  the  sweep  angle  of  the  singular  line  at  the  wing  root  if 
ZSYM  =1.  It  is  the  sweep  angle  of  the  singular  line  at  the  lead- 
ing tip  if  2:SYM  =  0. 

Sweep  angle  of  the  singular  line  at  the  wing  tip.  SWEEPl  and 
SWEEP2  are  used  to  define  end  conditions  for  the  spline  fit  for 
the  X  coordinates  of  the  singular  line. 

Sweep  angle  of  the  singular  line  beyond  the  wing  tip. 

DIHEDl  is  the  dihedral  angle  of  the  singular  line  at  the  wing  root 
if  ZS\'M  =1.  It  is  the  dihedral  angle  of  the  singular  line  at  the 
leading  tip  if  ZSYM  =  0. 

Dihedral  angle  of  the  singular  line  at  the  wing  tip.  DIHEDl  and 
DIHED2  are  used  to  define  end  conditions  for  the  spline  fit  for  the 
y  coordinates  of  the  singular  line. 

Dihedral  angle  of  the  singular  line  beyond  the  wing  tip. 


Line  7:  Lines  7  through  11  describe  a  wing  section. 


Z 

XLE,  YLE 

CHORD 

THICK 


Span  location  of  the  wing  section. 

These  are  the  x  and  y  coordinates  of  the  leading  edge. 

The  local  chord  value  by  which  the  profile  coordinates  are  scaled. 

Wing  thickness  scaling  parameter.    The  input  y  coordinates  are 
multiplied  by  THICK. 


ALPHA 


The  twist  angle  of  the  section. 
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FSEC 


Indicates  whether  or  not  a  new  geometry  is  supplied  for  this  sec- 
tion. 

FSEC  =  0  means  that  the  section  is  obtained  by  scaling  the  profile 
used  at  the  previous  span  section  according  to  the  parameters 
CHORD,  THICK,  and  ALPHA.  In  this  case  no  more  lines  are 
needed  for  this  section. 

FSEC  =  1  means  that  the  coordinates  for  a  new  profile  are  to  be 
read  in  from  the  following  lines. 


Line  8: 
YSYM 


NU 
NL 


YSYM  =  1  for  a  symmetric  profile.    In  this  case  only  the  upper 
surface  coordinates  are  provided. 

YSYM  =  0  for  a  non-symmetric  profile.   In  this  case  coordinates 
for  the  entire  wing  must  be  supplied. 

The  mmiber  of  upper  surface  coordinates. 

The  number  of  lower  surface  coordinates.    When  YSYM  =  1, 

NL=  ^fU. 


Line  9: 


TRAIL 


SLOPT 


XSING,  YSING 


The  included  angle  at  the  trailing  edge  in  degrees.  If  the  profile 
has  an  open  trailing  edge,  TRAIL  is  the  difference  between  ths 
upper  and  the  lower  trailing  edge  angles. 

The  slope  of  the  mean  camber  line  at  the  trailing  edge.  This  is 
used  to  continue  the  vortex  sheet  smoothly  off  the  trailing  edge. 

The  coordinates  of  the  point  at  which  the  singular  line  starts  in  the 
root  span  station.  This  point  should  be  located  symmetrically 
between  the  upper  and  lower  surfaces.  Its  distance  from  the  lead- 
ing edge  should  be  approximately  equal  to  the  radius  of  curvature 
at  the  leading  edge.  The  coordinates  of  the  mapped  profile  in  the 
output  will  show  whether  this  point  has  been  properly  chosen. 
XSING  and  YSING  are  specified  in  the  same  units  as  the  coordi- 
nates of  the  profile  which  follow. 


Line  10:  Upper  Surface  Coordinates. 


X,Y 


The  coordinates  of  the  upper  surface  in  format  2F10.6.   They  are 
listed,  a  pair  on  each  line,  from  leading  edge  to  trailing  edge. 


Line  11:  Lower  Surface  Coordinates. 
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X,  Y  The  coordinates  of  the  lower  surfs'^  in  format  2F10.6.  They  are 

listed,  a  pair  on  each  line,  from  leading  edge  to  trailing  edge.  The 
leading  edge  coordinates  appear  both  here  and  in  the  Line  10  list. 
The  trailing  edge  point  will  be  different  from  that  of  Line  10  if  the 
profile  has  an  open  trailing  edge. 


Line  12,13,...:  Profile  at  other  span  stations. 


These  lines  are  repetitions  of  Line  7,  one  for  each  of  the  NC  -  1 
remaining  span  stations.  For  those  stations  for  which  FSEC  —  1, 
Lines  8  through  11  must  be  repeated. 
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2.  TAPE  9  Parameters 


All  variables  are  read  in  in  format  F10.6.   Line  0  is  a  single  title  line,  and  Lines  1,2, 
and  3  are  line  pairs  as  in  TAPE  5. 

Line  0:  Title. 


Line  1: 


NMSTA 


The  number  of  span  stations  at  which  the  Mach  niimber  distribu- 
tion is  specified. 


Line  2:  Lines  2  and  3  are  repeated  NMSTA  times. 


ZMSTA 

PCMl 

PCM2 

PCM3 

Ml 
M2 
M3 
M4 


The  Z  coordinate  of  the  span  station. 

The  location,  as  a  percentage  of  the  local  chord  in  the  square  root 
plane,  at  which  the  flrst  Mach  number  Ml  is  specified  near  the 
leading  edge. 

The  location,  as  a  percentage  of  the  local  chord  in  the  square  root 
plane,  at  whidi  the  second  Mach  number  M2  is  specified  near  the 
front  of  the  supersonic  zone. 

The  location,  as  a  percentage  of  the  local  chord  in  the  square  root 
plane,  at  which  the  third  Mach  number  M3  is  specified  near  the 
rear  of  the  superonic  zone. 

The  Mach  number  prescribed  at  PCMl. 

The  Mach  number  prescribed  at  PCM2. 

The  Mach  number  prescribed  at  PCM3. 

The  Mach  number  prescribed  at  the  trailing  edge. 


Line  3: 


PCSl 


PCS2 


Location  of  the  left  edge  of  the  groove  which  defines  the  inner 
wing  surface,  expressed  as  a  fraction  of  the  local  chord.  The 
groove  is  assumed  to  be  on  the  upper  surface. 

Location  of  the  right  edge  of  the  groove  expressed  as  a  fraction  of 
the  local  chord. 


-74 


DSURF  The  maximum  depth  of  the  groove  expressed  in  units  used  in  the 

computational  domain.  Recommended  value  0.002. 


3.  TAPE  50  Parameters 


Line  1: 
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Y 
Z 

DIAM 

WEIGHT 


The  X  coordinate  in  physical  space  of  the  first  source  point.  The 
second  source  point  is  at  the  next  downstream  grid  point. 

The  y  coordinate  of  the  first  source  point. 

The  z  coordinate  of  the  first  source  point. 

The  asymptotic  nacelle  diameter  in  local  chord  units.  DIAM  =  .3 
for  a  diameter  which  is  30%  of  the  local  chord. 

Determines  the  distribution  of  the  source  strength.  If  WEIGHT  = 
1  all  the  strength  is  concentrated  at  the  first  source  point.  The 
recommended  value,  WEIGHT  =  .5,  distributes  the  strength 
evenly  over  the  two  source  points. 


4.  TAPE  51  Parameters 


Line  1: 


SHRY 


SHRZ 


Factor  by  which  the  grid  spacing  is  shnmk  in  the  y  direction  near 
the  source.  Recommended  values  SHRY  =  1  for  NY  &  23, 
SHRY  =  .7  for  NY  =  14.  For  NY  <  28  interpolate  or  extrapolate 
linearly. 

Factor  by  which  the  grid  spacing  is  shrunk  in  the  z  direction  near 
the  source.  Recommended  values  SHRZ  =  1  for  NZ  a  24,  SHRZ 
=  .6  for  NZ  =  12. 


Line  2: 


NSHY 


NSHZ 


The  number  of  grid  spaces  in  K  on  each  side  of  the  source  point  at 
which  the  grid  squeezing  function  is  applied.  NSHY  =  0  when 
there  is  no  nacelle. 

The  number  of  grid  spaces  in  Z  on  each  side  of  the  source  point  at 
which  the  grid  squeezing  function  is  applied.  NSHZ  =  0  when 
there  is  no  nacelle. 


•76. 
10.  Code 


1.  Sample  Inpot 


TAPES; 


TITLE;  SAMPLE  INPUT  FOR  A  DESIGH  RDH 


in 

SY 

HZ 

PPLOT 

XSCAL 

PSCAL 

PCOHT 

96. 

14. 

12. 

2. 

0. 

0. 

1. 

MIT 

COV 

P10 

P20 

P30 

BETA 

HHAL      HSES 

010. 

0.0000001 

1.70 

1. 

1. 

.1 

0.        10. 

TSTEP 

roo 

P10 

F11 

POPT 

0.03 

.16 

-1.0 

0.0 

0.0 

FMACH 

YAW 

AL 

CDO 

8URPC0NT 

0.81 

0. 

1.00 

0. 

0. 

CLTARG 

-. 

-999. 

ZSYM 

FNC 

SWEEP 1 

SWEEP 2 

SWEEP 

0IHED1 

DIHED2    DIHED 

1. 

6. 

30. 

30. 

30. 

0. 

0.         0. 

Z 

XLE 

TLB 

CaORO 

THICK 

ALPHA 

PSEC 

0. 

0. 

0. 

.6737 

0.92 

0. 

1. 

YSYM 

NO 

HL 

0. 

47. 

35. 

TRAIL 

SLOPT 

XSING 

TSING 

1.577 

-.1 

0.01000 

0.01403 

X 

T 

-.002801 

.022664 

.004613 

.035103 

.019370 

.046090 

.026231 

.049082 

.035059 

.052122 

.045415 

.054992 

.057105 

.057681 

.069832 

.060167 

.083659 

.062497 

.098782 

.064716 
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.11506 

.066806 

.13213 

.068731 

.14999 

.070501 

.16893 

.072148 

.18896 

.073667 

.20982 

.075033 

.23146 

.076243 

.25400 

.077299 

.27723 

.078188 

.30076 

.078895 

.32450 

.079252 

.34853 

.079521 

.37262 

.079618 

.39645 

.079550 

.41996 

.079320 

.44315 

.078932 

.46569 

.078400 

.48715 

.077747 

.50725 

.076996 

.52567 

.076184 

.54206 

.075346 

.55629 

.074526 

.56853 

.073734 

.57908 

.072982 

.58821 

.072270 

.59637 

.071577 

.60433 

.070852 

.61266 

.070035 

.67205 

.062571 

.73993 

.051620 

.80171 

.039381 

.86178 

.026501 

.91109 

.016163 

.95185 

.008706 

.97857 

.004778 

.99411 

.002926 

.99673 

.002611 

X 

Y 

-.002801 

.022664 

.0 

.0 

.008095 

-0.009827 

.019227 

-0.017255 

.033397 

-0.023432 

.049561 

-0.028572 

.G67610 

-0.032891 

.087596 

-0.036589 

.109802 

-0.039868 

.133918 

-0.042776 

.159875 

-0.045339 

.187417 

-0.047551 

.216633 

-0.049431 

.247244 

-0.050965 

.279367 

-0.052158 

.312636 

-0.052800 
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.347184 

-0.053145 

.382594 

-0.053076 

.419126 

-0.052537 

.456360 

-0.051470 

.494724 

-0.049808 

.533804 

-0.047365 

.574329 

-0.043957 

.616118 

-0.039376 

.660255 

-0.033304 

.706333 

-0.025802 

.755039 

-0.017281 

.804548 

-0.009263 

.854096 

-0.003506 

.899318 

-0.001092 

.938560 

-0.001351 

.967890 

-0.002731 

.988095 

-0.004157 

.996521 

-0.004911 

.997331 

-0.005002 

Z 

ZLE 

YLE 

.2 

.115 

.0 

Z 

XLE 

YLE 

.4 

.230 

.0 

Z 

XLE 

YLE 

.6 

.345 

.0 

Z 

XLE  • 

YLE 

.8 

.460 

.0 

Z 

XLE 

YLE 

1.0 

.575 

.0 

CHORD 

THICK 

ALPHA 

FSEC 

.6147 

0.92 

0. 

0. 

CHORD 

THICK 

ALPHA 

FSEC 

.5558 

0.S2 

0. 

0. 

CHORD 

THICK 

ALPHA 

FSEC 

.4968 

0.92 

0. 

0. 

CHORD 

THICK 

ALPHA 

FSEC 

.4379 

0.92 

0. 

0. 

CHORD 

THICK 

ALPHA 

FSEC 

.3789 

0.92 

0. 

0. 
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TAPE  9; 


TITLE:  SAMPLE  INPUT  MACH  HUNBER  OISTRIBOTIOH 


imSTA 

5. 

ZMSTA 

PCM1 

0.0 

.065 

PCS1 

PCS2 

0.5 

.9 

ZMSTA 

PCM1 

0.125 

.055 

PCS1 

PCS2 

0.4 

.9 

ZMSTA 

PCM1 

0.5 

.055 

PCS1 

PCS2 

0.4 

.9 

ZMSTA 

PCM1 

0.75 

.065 

PCS1 

PCS2 

0.15 

.9 

ZMSTA 

PCM1 

1.0 

.065 

PCS1 

PCS2 

0.15 

.9 

PCM2 

PCN3 

.22 

.83 

DSURP 

.002 

PCM2 

PCM3 

.22 

.80 

DSURF 

.002 

PCM2 

PCN3 

.22 

.78 

Dsuiur 

.002 

PCM2 

PCM3 

.22 

.78 

DSURP 

.0 

PCM2 

PCN3 

.2 

.82 

OSURF 

.0 

N1 
.42 


N2 

1.1 


N3 

1.1 


N4 

.67 


Ml 
.44 


M2 

1.20 


M3 

1.14 


M4 

.68 


N1 
.44 


M2 

1.27 


M3 

1.21 


M4 

.67 


Ml 
.48 


M2 

1.37 


M3 

1.17 


N4 

.66 


Ml 
.50 


N2 

1.345 


N3 

1. 


N4 

.70 


TAPE  50; 


0.8498462 


0.1797527 


0.2499998 


0.2500000 


0.5000000 


TAPE  51; 


0.7000000 


0.700000 

2 
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2.  Sample  Ontpot 


mru  IHV2RSS  swept  wihg  code 


9.60000e-t-01 


Tvr 


nz 


1.40000e-f01    1.20000e-»01 


FPLOT 
0. 


ZSCAL 


0. 


PSCAL 


0. 


FCONT 


0. 


FIT(Bni) 
1.00000e-t-02 


covoCNM)  piodm)  P20(Bm) 

0.  1.70000e-i-00         1 .  OOOOOe-i-00 


P30(NM) 
1.00000e-fOO 


BBTAO(En() 
1.00000e-01 


BEALTimi) 


PDEsdm) 


0. 


FMACH  TA 

8.100006-01        0. 


AL 
1.00000e-»-00 


CDO 


0. 


SREF 


0. 


SURFCOHT 


0. 


ZSYM 

1.00000e-i-00 


FSC 
e.OOOOOe-fOO 


SWEEP 1 
3.0000064-01 


SWEEP2 


SWEEP 


3.00000e-t-01        3.00000e-«-01 


DIBE01 


0. 


DIHEI)2 


0. 


OIHEO 


0. 


YSYM 


0. 


FNU 


FNL 


4.70000e-t-01        3.50000e-»-01 


TRL 
1.577006+00 


SLT 
-1.000006-01 


ZSING 


TSISG 


1.000006-02        1.403006-02 
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XP(1) 

yp(i) 

2 

.80103e-03 

2.266406-02 

4 

.61300e-03 

3.510306-02 

1, 

.93700e-02 

4.609006-02 

2. 

.62310e-02 

4.908206-02 

3, 

.50590e-02 

5.212206-02 

4. 

.54150e-02 

5.499206-02 

5, 

.71050e-02 

5.768106-02 

6. 

.983206-02 

6.016706-02 

8, 

,36590e-02 

6.249706-02 

9, 

.87820e-02 

6.471606-02 

.150606-01 

6.680606-02 

.321306-01 

6.873106-02 

.499906-01 

7.050106-02 

.689306-01 

7.214806-02 

.889606-01 

7.366706-02 

2. 

.098206-01 

7.503306-02 

2. 

.314606-01 

7.624306-02 

2. 

.540006-01 

7.729906-02 

2. 

.772306-01 

7.818806-02 

3. 

.007606-01 

7.889506-02 

3. 

.245006-01 

7.925206-02 

3. 

.485306-01 

7.952106-02 

3. 

.726206-01 

7.961806-02 

.964506-01 

7.955006-02 

.199606-01 

7.932006-02 

.431.506-01 

7.893206-02 

.656906-01 

7.840006-02 

.871506-01 

7.774706-02 

5. 

.072506-01 

7.699606-02 

5. 

.256706-01 

7.618406-02 

5, 

.420606-01 

7.534606-02 

5, 

.562906-01 

7.452606-02 

5. 

.685306-01 

7.373406-02 

5. 

.790806-01 

7.298206-02 

5. 

.882106-01 

7.227006-02 

5, 

.963706-01 

7.157706-02 

6. 

.043306-01 

7.085206-02 

6. 

.126606-01 

7.003506-02 

6, 

.720506-01 

6.257106-02 

7, 

.399306-01 

5.162006-02 

8. 

,017106-01 

3.938106-02 

8. 

.617806-01 

2.650106-02 

9, 

.110906-01 

1.616306-02 

9, 

,518506-01 

8.706006-03 

9, 

.785706-01 

4.778006-03 

9 

,941106-01 

2.926006-03 

9 

,967306-01 

2.611006-03 
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VAL 
.2.80100e-03 

0. 

8.09500e-03 
1.92270e-02 
3.33970e-02 
4.95610e-02 
6.76100e-02 
8.75960e-02 
1.09802e-01 
1.33918e-01 
1.59875e-01 
1.87417e-01 
2.16633e-01 
2.47244e-01 
2.79367e-01 
3.12636e-01 
3.47184e-01 
3.82594e-01 
4.19126e-01 
4.56360e-01 
4.94724e-01 
5.33804e-01 
5.74329e-01 
6.16118e-01 
6.60255e-01 
7.063336-01 
7.550396-01 
,8.045486-01 
8.540966-01 
8.993186-01 
9.385606-01 
9.678906-01 
9.880956-01 
9.965216-01 
9.973316-01 


DOM 
2.266406-02 

0. 

-9.827006-03 
-1.725506-02 
-2.343206-02 
-2.857206-02 
-3.289106-02 
-3.658906-02 
-3.986806-02 
-4.277606-02 
-4.533906-02 
-4.755106-02 
-4.943106-02 
-5.096506-02 
-5.215806-02 
-5.280006-02 
-5.314506-02 
-5.307606-02 
-5.253706-02 
-5.147006-02 
-4.980806-02 
-4.736506-02 
-4.395706-02 
-3.937606-02 
-3.330406-02 
-2.580206-02 
-1.728106-02 
-9.263006-03 
-3.506006-03 
-1.092006-03 
-1.351006-03 
-2.731006-03 
-4.157006-03 
-4.911006-03 
-5.002006-03 
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SECTION  DEFINITION  AT  Z  ■ 
ZLE  YLE 

0.  0. 

THICK  ALPHA 

9.20000e-01    0. 


0.00000 
CHORD 
6.73700e-01 

FSEC 
I.OOOOOe-fOO 


SECTION  DEFINITION  AT  Z  ■ 
ZZ.E  YLE 

1.15000e-01    0. 

THICK  ALPHA 

9.20000e-01    0. 


0.20000 
CHORD 
6.14700e-01 

FSEC 
0. 


SECTION  DEFINITION  AT  Z 
ZLE  YLE 

2.300006-01    0. 

THICK  ALPHA 

9.200006-01    0. 


0.40000 
CHORD 
5.558006-01 

.FSEC 
0. 


SECTION  DEFINITION  AT  Z 
ZLE  YLE 

3.450006-01    0. 

THICK  ALPHA 

9.200006-01    0. 


0.60000 
CHORD 
4.968006-01 

FSEC 
0. 


SECTION  DEFINITION  AT  Z 
ZLE  YLE 

4.600006-01    0. 

THICK  ALPHA 

9.200006-01    0. 


o.eoooo 

CHORD 
4.379006-01 

FSEC 
0. 


SECTION  DEFINITION  AT  Z 
ZLE  YLE 

5.750006-01    0. 

THICK  ALPHA 

9.200006-01    0. 


1.00000 
CHORD 
3.789006-01 

FSEC 
0. 
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NACELLE  DATA 
CHORD,  IS  SPAN  STATION 
WHICH  CONTAINS  SOORCE  TERMS  -0.5956 
NACELLE  DIAMETER- 0. 1489 

NACELLE  DIAMETER  IN  CHORD  ONITS-0.2500 
KIRST  SOURCE 

Z  COORDINATE  -0.8607 

Y  COORDINATE  -0.1817 
Z  COORDINATE  -0.2500 
INDICES  -   90   12    5 
WEIGHT  -0.5000 

SECOND  SOURCE 

Z  COORDINATE  -0.8969 

Y  COORDINATE  -0.1854 
Z  COORDINATE  -0.2500 
INDICES  -   91   12    5 
WEIGHT  -0.5000 


SQUEEZING  OF  THE  GRID  NEAR  SOURCE 

SHRY   -    1.00000     SHRZ   -    1.00000 

INDICES  07  ENDPOINTS  &  MIDPOINT  OF  SQUEEZED  Y  SEGMENT 

12  12  12 
INDICES  OF  ENDPOINTS  &  MIDPOINT  OF  SQUEEZED  Z  SEGMENT 

5   5   5 
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ITERATIVE  SOLUTION 
STRIP  WIDTH  FOR  HORIZONTAL  LINE  RELAXATION 

1.0000 


SX 

NY 

KZ 

96 

14 

12 

COMPUTING 

TIME      0 . 

342 

SECONDS 

MACB 

NO 

YAW 

ANG  OF  ATTACK 

0. 

81000 

0.00000 

1 

.00000 

REL  FCT 

1 

REL  FCT 

2 

DETA 

1. 

70000 

1.0000C 

0 

.10000 

ITER     CORR 

I 

J 

K 

RESIO 

I 

J      K 

CL 

DRAG   SONIC 

ANG 

1 

1.998e-07 

90 

14 

1.929e-02 

91 

12 

5 

0.04 

0. 

0 

1.000 

2 

-4.307e-06 

89 

14 

6.214e-03 

91 

11 

5 

0.06 

0. 

0 

1.000 

3 

-1.371e-05 

88 

13 

2.167e-03 

91 

10 

5 

0.08 

0. 

1.000 

4 

-2.825e-05 

87 

12 

2.005e-03 

85 

15 

6 

0.09 

0. 

1.000 

5 

-4.925e-05 

85 

12 

1.941e-03 

87 

15 

4 

0.11 

0. 

1.000 

6 

-7.545e-05 

84 

11 

1.722e-03 

88 

15 

3 

0.12 

0. 

1.000 

7 

-1.038e-04 

82 

10 

1.632e-03 

88 

15 

3 

0.13 

0. 

1.000 

8 

-1.301e-04 

83 

8 

1.505e-03 

87 

15 

4 

0.15 

2.39e-08 

4 

1.000 

9 

-1.494e-04 

82 

7 

1.398e-03 

88 

15 

3 

0.16 

4.62e-07 

11 

1.000 

10 

-1.568e-04 

82 

6 

1.310e-03 

88 

15 

3 

0.17 

1.50e-06 

24 

1.000 

11 

-1.505e-04 

78 

6 

1.193e-03 

88 

15 

3 

0.18 

3.07e-06 

34 

1.000 

12 

-1.319e-04 

79 

5 

1.136e-03 

88 

15 

3 

0.18 

4.79e-06 

47 

1.000 

13 

-1.116e-04 

78 

5 

1.052e-03 

88 

15 

3 

0.19 

7.86e-06 

57 

1.000 

14 

-1.085e-04 

85 

7 

9.966e-04 

88 

15 

3 

0.20 

1.10e-05 

80 

1.000 

82 

-3.581e-05 

96 

7 

8.885e-05 

85 

15 

6 

0.40 

1.65e-03 

750 

1.000 

83 

-3.484e-05 

96 

7 

8.642e-05 

85 

15 

6 

0.40 

1.67e-03 

752 

1.000 

64 

-3.391e-05 

96 

7 

8.403e-05 

85 

15 

6 

0.40 

1.68e-03 

756 

1.000 

85 

-3.300e-05 

96 

7 

8.176e-05 

85 

15 

6 

0.40 

1.69e-03 

760 

1.000 

86 

-3.212e-05 

96 

7 

7.954e-05 

85 

15 

6 

0.40 

1.70e-03 

761 

1.000 

87 

-3.125e-05 

96 

7 

7.739e-05 

85 

15 

6 

0.40 

1.71e-03 

762 

1.000 

88 

-3.042e-05 

96 

7 

7.539e-05 

85 

15 

6 

0.40 

1.72e-03 

762 

1.000 

89 

-2.960e-05 

96 

7 

7.332e-05 

85 

15 

6 

0.40 

1.73e-03 

765 

1.000 

90 

-2.881e-05 

96 

7 

7.128e-05 

85 

15 

6 

0.40 

1.74e-03 

766 

1.000 

91 

-2.805e-05 

96 

7 

6.935e-05 

85 

15 

6 

0.40 

1.75e-03 

768 

1.000 

92 

-2.730«-05 

96 

7 

6.745e-05 

85 

15 

6 

0.40 

1.76e-03 

770 

I.OCO 

93 

-2.657e-05 

96 

7 

6.565e-05 

85 

15 

6 

0.40 

1.77e-03 

770 

1.000 

94 

-2.587e-05 

96 

7 

6.385e-05 

85 

15 

6 

0.41 

1.78e-03 

770 

1.000 

95 

-2.518e-05 

96 

7 

6.210e-05 

84 

15 

7 

0.41 

1.79e-03 

770 

1.000 

96 

-2.451e-05 

96 

7 

6.0420-05 

84 

15 

7 

0.41 

1.80e-03 

770 

1.000 

97 

-2.386e-05 

96 

7 

5.879e-05 

84 

15 

7 

0.41 

1.80e-03 

771 

1.000 

98 

-2.323e-05 

96 

7 

5.720e-05 

84 

15 

7 

0.41 

1.81e-03 

773 

1.000 

99 

-2.262e-05 

96 

7 

5.569e-05 

84 

15 

7 

0.41 

1.82e-03 

775 

1.000 

100 

-2.203e-05 

96 

7 

5.422e-05 

84 

15 

7 

0.41 

1.83e-03 

775 

1.000 

MAX  RESIDAL 

1 

MAX  RESIDAL  2 

WORK 

REDUCTN/CYCLE 

1.9288e-02 

5. 

4217e-05 

99 

.0000 

0.9424 

COMPUTING 

TIME     16 

846 

SECONDS 
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WAVE  DRAG  -   0.00183 

PRINTOUT  OF  IDRAGd.K) 

DOTS  INDICATE  SUBSONIC  POINTS 


• 
• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

) 

0 

0 

0 

0 

0 

0 

0 

> 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

J 

0 

0 

0 

0 

0 

0 

0 

) 

0 

0 

0 

0 

0 

0 

1 

D 

0 

0 

0 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

5 

0 

0 

0 

0 

0 

0 

0 

47 

0 

0 

0 

0 

0 

0 

147 

0 

0 

0 

0 

0 

53 

24 

0 

0 

0 

0 

0 

370 

0 

0 

0 

0 

505 

0 

0 

0 

97 

335 

0 

0 

0 

1071 

0 

0 

990 

0 

0 

0 

0 

0 

• 

0 

• 

• 
• 
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WING  CHARACTERISTICS 


MACH  NO 

0.81000 

CL 

0.40816 

CD 

0.02534 

CO  WAVE 

0.00183 

CM  YAW 

0.01087 


YAW 

0.00000 
CO  FORM 
0.02534 
L/D  FORM 

16.10756 
CM  PITCH 

-0.42667 
AWING 
0.52669 


•ANG  OF  ATTACK 

1.00000 
CO  FRICTION 

0.00000 

L/O 
16.10756 

CM  ROLL 

0.37817 
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3.  Listing  of  Code 


c 

c 

c 

c 

c 

1. 

BACROSS 

c 

c 

2. 

AHGAT 

c 

c 

3. 

MizrLO 

c 

c 

4. 

VYSWEEP 

c 

c 

5. 

COORD 

c 

c 

6. 

SHRIKX 

c 

c 

7. 

8HRNK 

c 

c 

8. 

INHOM 

c 

c 

9. 

DRAGC 

c 

c 

10. 

WHGPRHT 

c 

c 

11. 

TWRIT 

c 

c 

12. 

VA10A 

c 

c 

13. 

MCI  IB 

c 

c 

14. 

MCI  IS 

c 

c 

15. 

REriH 

c 

c 

16. 

8PLIF 

c 

c 

17. 

IHTPL 

c 

c 

18. 

REACQS 

c 

c 

19. 

8ETQS 

c 

c 

20. 

SPTEB 

c 

c 

21. 

IBTEB 

c 

c 

22. 

NACELLE 

c 

c 

23. 

SMOOTH 

TABLE  or  SUBROtTTZNSS 

NAIH  CONTROL  ROUTIB^   89 

ANGLE  OP  ATTACK  ITERATION  FOR  PIZEO  LIFT   99 

SOLVES  DIFFERENCE  EQUATIONS 99 

VECTORIZED  RELAXATION  ROUTINE   103 

SET  UP  COORDINATE  SYSTEM   108 

SET  UP  GRID  SQUEEZING  FUNCTION   Ill 

EVALUATE  GRID  SQUEEZING  FUNCTION   Ill 

SET  UP  SOURCE  TERMS   Ill 

COMPUTE  WAVE  DRAG   114 

PRIBn  WING  COORDINATES 117 

STORE  POTENTIAL  AT  THE  END  OF  A  LINE  SEARCH   ....  118 

OPTIMIZATION  ROUTIBTE   119 

OPTIMIZATION  ROUTIITE   121 

OPTIMIZATION  ROUTINE   122 

HALF  MESH  SIZE   123 

COMPUTE  CUBIC  SPLINE   125 

EVALUATE  CUBIC  SPLINE   127 

READ  IN  MACH  NUMBER  DISTRIBUTION  DATA   127 

SET  UP  SMOOTH  MACH  NUMBER  DISTRIBUTION   128 

COMPUTE  EXPONENTIAL  SPLim   130 

EVALUATE  EXPONENTIAL  SPLIBn 131 

LOCATION  AND  PLOTTING  OF  NACELLE   131 

SMOOTHS  STREAM  TUBE  lEITERPOLANT   133 


-  89  - 


C 

C     24.  NOSCMP   -  NACZLIiS  NOSE  TXTNCTIOB  ?0R  PLOTS   134 

C 

C     25.  NOSEV    -  EVALUATE  NACELLE  NOSE  FUNCTION   134 

C 

C     26.  SPEED    -  lOTERPOLATB  VELOCITY  FOR  STREAMLINE  TRACING   ....  134 

C 

C     27.  START    -  RUNGE-KUTTA  START  UP  FOR  O.D.E.  ROUTINE   136 

C 

C     28.  STEP     -  0.0. E.  ROUTINE  FOR  STREAMLINE  TRACIITG   137 

C 

C     29.  INIT     -  INITIALIZE  VARIABLES  FOR  O.D.E.  ROUTINE   139 

C 

C  30.    PHSCMP      -    MAPS    PHYSICAL   TO   COMPUTATIONAL   COCriDINATES       140 

C 

C     31.  CMPPHS   -  MAPS  COMPUTATIONAL  TO  PHYSICAL  COORDINATES   141 

C 

C     32.  ADMCOEF  -  COMPUTE  COEFFICIENTS  FOR  O.D.E.  ROUTINE   143 

C 

C     33 .  JAC      -  JACOBIAN   143 

C 

C     34.  SPLCMP   -  CUBIC  SPLINE  FOR  STREAMLINE  INTERPOLATION   145 

C 

C     35 .  SPLEV    -  EVALUATE  STREAMLINE  SPLINE   146 

C 

C     36 .  SPLFCT   -  GAUSSIAN  ELIMINATION   ,  .  .  146 

C 

C     37 .  SPLSLV   -  BACK  SUBSTITUTION 146 

C 

C     38 .  STAG     -  LOCATE  STAGNATION  POINT   147 

C 

C     39.  SFT      -  COMPUTE  TRIGON024ETRIC  INTERPOLANT   148 

C 

C     40 .  FR       -  EVALUATE  TRIGONOMETRIC  INTERPOLANT   149 

C 

C     41.  DFR      -  DERIVATIVE  OF  TRIGONOMETRIC  INTERPOLANT   149 

C 

C     42 .  SHCKPLT  -  PLOT  WING  AND  SHOCK   149 

C 

C     43.  VEL      -  CALCULATE  VELOCITY  FOR  SHOCK  PLOT   151 

C 

C     44 .  DRG      -  COMPUTE  WAVE  DRAG  FOR  SHOCK  PLOT   152 

C 

C     45.  SHR      -  MAP  COMPUTATIONAL  TO  SHEARED  COORDINATES   156 

C 

C     46.  INVSH   -  MAP  SHEARED  TO  COMPUTATIONAL  COORDINATES   156 

C 

C     47.  DSHR     -  COMPUTE  THE  DERIVATIVE  OF  THE  MAPPING  IN  SHR   ...  156 

C 

C     48.  SECTIONY-  LOCATE  NACELLE  SECTION  Y-CCNST 157 

C 

C     49.  SECTIONZ-  LOCATE  NACELLE  SECTION  Z-CONST   158 

C 

C     50 .  PLZ      -  PLOT  GRID  IN  PLANE  Z-CONST   159 


_  so  - 


z2.    SSDS 


l< 


£4 


-  STsJAZi  mzzzTzzj^rzys  zs  rrsr^s  Bcrs 

-  ?ic?  rSisrZi*  ccrrrmsTs     

-  ;; jLr  .  "  *    ; scrips   TZs-ZS    z 


arc?      -  ccKPTT*  rsAfi  PC*  cyrryrzA: 


-CS 


-7S 
179 


iei 

181 


■  •  •  • 


"33 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 


ZSZTZ    Z? 


sZZZSZ    - 


rxASZ 


)L.Kr~2    *-5    77.;:    7ZL1 

LATJ  ri.zz  rrLi  rzi 
irs.m  LAsrLS  rs  ?: 


CaxPTT.crrr: 


EATS 


rr»  ccKPTTATtcsAi  ?i*rrr~ 


ccigaca  g;2::.2£,25   .  s:  :::,35:,  i::s:2   .  r:;2:2;.  rrisra.ss), 
'   rrr*   3=    .   m:  2S   ,  a;  2::    ,  a'   2::    .  a2  2::    .  >u   2"    .   s:   35, 

2  S-     3=     ,    S:    3=     .    B3    35     .    2:35;.    C-;35     .    r2.3£     .     C3    35     ,    1=    35     ,    Z2 

3  3:    .   X22   35    .   rc:25:.  T2:35;,  TZ2:35:,  sx,  FT,  r».  rr»'.  rrri, 

4  rrra.    siai.    -zj^lz,  taw,   ctaw,    rrAw.   ai^^a.   ca,   sa.   ?t»ac2,   s*.   «, 


,   s:rEi  2::, 35, ,  szszji. 
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6  2QSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSCTR7(35),  RDQ,  RDSO,  ?00,  F01, 

8  no,  r^^,   hdq,  iq,  kq,  awihg,  voldrg,  idrgplt(200,35) ,  secdrg(35) 

9  ,  yiNHl,  FINH2,  ISRC,  JSRC,  KSRC,  XSOORCB,  YS0URC2,  ZSOURCE, 
i    STRENGTH 

COKMOH  /NAC1/  ZMAZ ,  ZKAX,  MX,  MY,  MZ ,  CHORD  0  ,  YSHRNKdO),  ZSHRNKd 
1  C),  CL 

COMMON  /FLO/  P1 ,  P2,  P3,  BETA,  FR,  IR,  JR.  KR,  DG,  IG,  JG,  KG,  NS , 
1  FSWEEP,  INDCF 

DIMENSION  XS( 200, 11) ,  yS(200,11),  ZS(11),  XLE(II),  TLE ( 1 1 ) ,  SLOPT( 

1  11),  TRAIL(II),  NPdl),  EKID,  E2(11),  E3  (  1 1  )  ,  E4  (  1 1  )  ,  E5  (  1 1  )  , 

2  XP(241),  yp(241),  D1(241),  D2(241),  D3(241),  X(200),  Y(200),  SV(2 

3  00),  SM(200),  CP(200),  CHORD(35),  SCL(35),  SCD(35),  SCM(35),  FIT( 

4  3),  COV0(3),  P10(3),  P20(3),  P30(3),  BETAO ( 3 ) ,  7HALF(3),  RES(501) 

5  ,  COUNTCSOI),  UC(200),  VC(200),  WC(200),  FDES ( 3 ) ,  CLO ( 1 1 ) ,  CLPRE( 

6  35) ,  ALrO(35) 

DIMENSION  DSSCdO),  LABELdO),  5PARAMC30) 

COMMON  /DIM/  RX,  RY,  RZ ,  FDIM 

CHARACTER*8  CDRGPLT ( 200 , 35 ) 

CHARACTER*40  TITLE 

CALL  LINK  ( "UNITS- (FORO 05, OPEN) ,CTNIT6»(FOR0 06, CREATE, TEXT) , 

1  aNIT50"(FOR050,OPEN) , UNITS  1 ■ ( FOR0  5 1 ,OPEN) , 

2  UNIT18»(7OR018,OPEN,     ) ,UNIT7» ( FOR0  07 ,OPEN,     ), 

3  UNIT8»(FCR008, CREATE,     ) ,UNIT1 9» ( FORO 19 , CREATE ) , 

4  UNITS 0»(FOR06  0, CREATE, TEXT) , UNIT9" ( FORO 09 , OPEN) , READS , PRINTS//" ) 
ND«200 

NE>200 
IREAD-5 
IWRIT»6 
KPLOT-0 
IPLOT-1 
ISTOP-2 
LINES»0 
LINMAX-31 
JO-0 
NF1-1 
FR"0. 
REWIND  7 

RAD-57.29S779S 130823 
WRITE  (IWRIT.SSO) 
WRITE  (IWRIT,380) 
READ  (IREAD.SSO)  TITLE 
WRITE  (IWRIT,7S0)  TITLE 
READ  (IREAD.SSO)  TITLE 

READ  (IREAD,S4  0)  FNX , FNY , FNZ , FPLOT ,XSCAL , PSCAL , FCONT 
WRITE  (rWRIT,860)  FNX  ,  FITY  ,  FNZ  ,  FPLOT  ,XSCAL  ,  PSCAL  ,  FCONT 
NX»FNX 
NY-FNY 
NZ-FNZ 

IF  (NX.LT. 1 )  GO  TO  370 
KPLOT»ASS( FPLOT) 
READ  (IREAD.SSO)  TITLE 
NM-0 
10  NM-ETM-t-l 
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READ  (IREAD,640)  FIT(NM) ,COV0 (HM) ,P10 (HM) ,P20 (NM) ,P30 (KM) .BETAO (NM 
1  ),FHALF(NM),FDES(NM) 

WRITE  (IWRIT,750)  FIT(NM) ,COV0 (HM) ,P10 (NM) ,P20 (NM) ,P30 (NM) .BETAO 
1  (NM),FHALF(NM),rDES(NM) 

IF  (FHALF(NM) .NE.O. .AND.NM.LT.3)  GO  TO  10 

IF  (FDES(I) .LE.O. )  GO  TO  20 

READ  (IREAD,650}  TITLE 

READ  (IREAD,640)  TSTEP.FOO ,F10 ,F11 ,FOPT 

WRITE  (IWRIT,390)  TSTEP.FOO ,F10 ,F1 1 ,FOPT 
20  CONTINUE 

NMESB-NM 

FHALF(3)>0. 

READ  (IREAD,650)  TITLE 

READ  (IREAD,640)  FMACH, YA,AL,CD0 ,CLOPT,RCL,SREF,SURFCONT 

WRITE  (IWRIT,870)  FMACH, YA.AL, CD 0 ,SREF,SDRFCONT 

READ  (IREAD,650)  TITLE 

READ  (IREAD,640}  CLTARG 

YAW-YA/RAD 

ALPHA'AL/RAD 

CALL  GEOM  (ND,NC,NP,ZS,XS, YS,XLE,YLE,SLOPT, TRAIL, XP,YP,SWEEP1 
1  , SWEEP2 , SWEEP , DIHED 1 , DIHED2 , DIHED , XTEO , CHORDO , ZTIP , ISYMO , CLO ) 

ISYM-ISYMO 

IF  (ALPHA.NE.O. )  ISYM-0 

CYAW»COS(YAW) 

syAw»siN(yAw) 

CA»CyAW»COS (ALPHA) 

SA*CYAW«SIN( ALPHA) 

IF  (FDESd)  .GT.O.  )  CALLREADQS  (NQSTA,ZQSTA,rCQ1  ,PCQ2,PCQ3 ,QQ1  ,QQ2 
1  ,QQ3,QQ4,PCS1,PCS2,DSURF,FMACB) 

IF  (FC0NT.LT.1. )  GO  TO  40 

READ  (7)  NZ,NY,NZ,NM,K1.K2,NIT 

RE/VD  (7)  RZ,RY,RZ,ALOLD 

IF  (AL.LE.-99.)  THEN 

AL«ALOLD 

ALPHA-AL/RAD 

CA-CYAW*COS ( ALPHA ) 

SA«CYAW*SIN ( ALPHA ) 

ENDIF 

MZ-NX-t-1 

MY«HY+2 

MZ>NZ-«-3 

IF  (FDESd)  .GT.O.  )  NM-1 

IF  (FDES(NM) .GT.O. )  NIT-0 

DO  30  K>1,MZ 

READ  (7)  ((G(I,J,K),I»1,MX),J-1,MY) 
30  CONTINUE 

READ  (7)  (E0(K),K-X1,K2) 

REWIND  7 
40  CONTINUE 

FDIM-FHALF(I) 

IREFLG>0 
50  CALL  COORD  (NX,NY,NZ,XTEO ,ZTIP,XMAX,ZMAX,SY,SCAL,SCALZ,AX,AY,AZ,AO 
1  ,A1,A2,A3,B0,B1,B2,B3,Z,C1,C2,C3,ISRC,JSRC,KSRC,YSHRNK,ZSHRNK) 

CALL  SINGL  (NC,NZ,KTE1 ,KTE2, CHORDO , SWEEP 1 ,SWEEP2 ,SW2EP, DIHED 1 
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1  ,DIHED2,OIHEO,ZS,ZLE,YLE,ZC,ZZ,ZZZ,YC,YZ,yZZ,Z,C1,C2,C3,E1,B2,E3 

2  ,E4,E5,INO,CL0,CLPRE} 

CALL  SURF  (ND,NE,NC,NX,NZ,ISYM,KTE1,KTE2,SCAL,YAW,A0,Z,ZS,XC,YC 

1  ,SLOPT,TRAIL,XS,YS,NP,ITE1,ITE2,IV,S0,Z0,XP,YP,D1,D2,D3,X,Y,IHD 

2  ,ZZ,YZ,A1,C1) 

17  (IREPLG.EQ.O)  THEN 

CALL  INEOM 

IREFLG* 1 

GO  TO  50 

PINDIF 

IF  ( SURFCONT . EQ . 1 . 0 )  THEN 

READ  (18)  ( (S0(I,K),I-1,KZ} ,K>1,MZ) 

REWIND  (18} 

ENDIF 

IF  (IND.EQ.O)  GO  TO  360 

IF  (FOESd)  .GT.O.  )  CALL  SETQS  (NE,En,QPRE,SO  .SOPRE,  ITE1 ,  ITB2  ,KTE1 

1  ,KTE2,Z,ZQSTA,A0,PCQ1,PCQ2,PCQ3,aC,VC,QQ1,QQ2,QQ3,QQ4,PCS1,PCS2 

2  ,DStTRF,NQSTA) 

IF    (  (FDESd)  .GT.O.  )  .OR.  (SURFCONT.EQ.I.O)}    CALLVmGPRNT 

IF  (FC0NT.GE.1. }  GO  TO  60 

NM>1 

NIT-0 

CALL  ESTIM  (ALFO) 
60  WRITE  (IWRIT,660) 

CALL  INHOM 

FCONT»0. 

MIT»FIT(NM)+NIT 

KRES»2 

JRES»0 

NRES'O 

COV»COV0(NM) 

BETAaBETAO(NM) 

MX"NX+1 

MY»NY+2 

MZ>NZ+3 

KY»NY+1 

Klr.3 

K2>NZ-t-2 

LZ*3 

WRITE  (IWRIT,400) 

00  70  I>2,NZ 

IF  (I.EQ.48)  WRITE  (IWRIT,410) 
70  WRITE  (IWRIT,780)  ( IV( I ,K) ,K«K1 ,K2) 

WRITE  (IWRIT,660) 

WRITE  (IWRIT,420} 

DO  80  1*2, NX 

IF  (I.EQ.48)  WRITE  (IWRIT,410) 
80  WRITE  (IWRIT,670)  AO ( I) ,S0 ( I.LZ) ,S0 ( I,KTE2) 

WRITE  (IWRIT,430) 

WRITE  (IWRIT,680)  XMAX.AX 

WRITE  (IWRIT,660) 

WRITE  (IWRIT,440) 

DO  90  J»2,KY 
90  WRITE  (IWRIT,690)  BO(J) 
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WRITE  (IWRIT,450) 
WRITE  (IWRIT,680) 
WRITE  (IWRIT,660) 
WRITE  (IWRIT,460) 
DO  100  K»K1,K2 
100  WRITE  (IWRIT,700) 
WRITE  (IWRIT,470) 
WRITE  (IWRIT,680) 
WRITE  (IWRIT,660) 
WRITE  (IWRIT,480) 
WRITE  (IWRIT,730) 
WRITE  (IWRIT,490) 
WRITE  (IWRIT,770) 
CALL  SECOND  (T) 
WRITE  (IWRIT,840) 
WRITE  (IWRIT,500) 
WRITE  (IWRIT,710) 
WRITE  (IWRIT,510) 
WRITE  (IWRIT,710) 
IF  (FDES(NM).LE.O. 
IF  (FDES(MM).6T.0. 


SY.AY 

Z(K) ,XC(K) ,yC(K) ,ZZ(K) ,7Z(K) ,ZZZ(K} ,yZZ(K) 
ZMAX,AZ 

1.0 
NZ,Ny,NZ 

T 

FMACH.YA.AL 

P10(l!IM),P20(im},BETA 

.AND.CLOPT.LE.O. )  WRITE  (IWRIT,540) 
)  WRITE  (IWRIT,530) 


IF  (CLOPT.GT.O. )  WRITE  (IWRIT,520) 

KDBS>0 

NDES-FDES(NM} 

LX»NX/2+1 

CL*CLTARG 

DO  110  K*K1,K2 

II-ITEKK) 

X(I1)-XC(K)+.5»SCAL»(A0(I1)»A0(I1)-S0(I1,K)»S0(I1,K)) 

Z(LZ)>ZC(K)-i-.5*SCAL*(A0(LZ)*A0(LZ)-S0(LX,K)*S0(LZ,K)) 

CH0RD(K)«Z(I1)-Z(LZ) 
110  CONTINUE 

KZDUM-KTE2-1 

S»0. 

DO  120  K-KTCI.KZDUM 

DZ0-.5»(Z(K+1)-Z(K)) 

S«S-»-DZ0*(CHORD(K-«-1}-fCHORD(K)) 

AWING»S 

KDES»KDES-l-1 

IF  (NDES.GT.O)  NIT-0 

NIT-NIT+1 

P1t.P10(NM) 

P2*P20(OT1) 

P3«P30(NM) 

IF  (FOPT.LT.I.)  GO  TO  150 

CALL  OPT  (QQ1,QQ2,QQ3,QQ4) 

GO  TO  230 
150  CONTINUE 

IF  (CLTARG.GT.-99. )  THEN 

CALL  ANGAT  ( AL , ALPHA , CYAW , CA , SA , RAD , CL , CLTARG , FR } 

END  IF 

IF  (STRENGTH.NE.O. )  THEN 

INDCF-1 

ELSE 


120 


130 


140 
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iNDcr*o 

ENDiy 

CALL  MIXFLO 

FCL-0. 

KCL»0 

IRE7IN>0 

VOLDRGaO. 

SCALX»0. 

CALL  DRAGC  (O.SCALX) 

IF  (NDBS.LB.O)  THEN 

DO  160  K*3,MZ 

IF  (K.GE.KTE1.AND.K.LE.KTE2)  THEH 

IF  (FR.LT. ( .07))  THEN 

CALL  VELO  (K,K,SV,SM,CP,X,Y,UC,VC,WC) 

END  IF 

I1-ITE1(K) 

I2»ITE2(K) 

CH0RD(K)»X(I1)-X(LX) 

CALL  FORCF  ( 11 ,l2,X,y,CP,AL,CH0RD(K) ,XC(K) ,SCL(K) ,SCD(K) ,SCM(K) ) 

ENDIF 
160  CONTINUE 

CALL  TOTFOR  (KTE1 ,KTE2, CHORD, SCL, SCO, SCM,Z,XC,CL,CD1 , CMP, CMR.CMY 
1  , AWING) 

ENDIF 

jO-0 

IF  (NDES.LE.O)  GO  TO  170 

IF  (NDQ.GT.O)  RDQ-RDQ/FLOAT(NDQ) 

IF  (CLOPT.LE.O. )  WRITE  (IWRIT,810)  1CDES,DG,IG, JG,KG,FR,IR, JR,KR 
1  ,RDQ,RDS0,IQ,KQ,VOLDRG,CL 
170  IF  (NDES.LE.O.AND.CLOPT.LE.O. )  WRITE  (IWRIT,800)  NIT.DG, IG, JG.KG 
1  ,FR,IR,JR,KR,CL,VOLDRG,NS,AL 

IF  (CLOPT.GT.O. )  WRITE  (IWRIT,820)  NIT, DG, IG, JG.KG, FR,IR,JR,KR,FCL 
1  ,KCL,RCL,NS 
LINES  AND  LINMAX  CONTROL  THE  OUTPUT  FORMAT 

IF  ( LINES . GE . LINMAX }  THEN 

LINMAXsSO 

LINES«0 

WRITE  (IWRIT,850) 

ELSE 

LTNES-LINES+1 

ENDIF 

JRES-JRES+1 

IF  ( JRES . EQ . KRES )  JRES»1 

IF  (JRES.NE.1)  GO  TO  180 

!7RESbNRES-*-1 

COUNT ( NRES ) -NIT- 1 

IF  (NDES.GT.O)  COUNT (NHES)»MIT»KDES-1 

RES ( NRES )>FR 
180  CONTINUE 

IF  (NIT.LT.MIT.AND.ABS(DG) .GT.COV.AND.ABS(DG) .LT. 10. )  GO  TO  140 

IF  (NDES. GT.O. AND. KDES.EQ.  LAND. NIT. LT.  1)  GO  TO  140 

IF  (NDES.LE.O)  GO  TO  220 

RDSO-0. 

KDQ>0 
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ROQ«0. 

IQ-C 

KQ*0 

DO  190  K»3,MZ 

XT    (K.LT.KTE1.0R.K.GT.KTE2)  GO  TO  190 

CALL  VELO  (X,K,SV,SN,CP,Z,Y,UC,VC.WC) 

I1»ITE1(K) 

I2»ITE2(K} 

CH0RO(K}>X(I1)-X(LZ) 

CALL  FORCF  (11 ,I2,X.T,CP,AL,CH0RI}(K} ,ZC(K) ,SCL(K) ,SCO(K) ,SCM(K} ) 
190  CONTINUE 

CALL  T0T70R  (KTE1 ,KTE2, CHORD, SCL, SCO, SCM,Z,ZC,CL,CI}1 , CMP, CMR.CMY 
1  , AWING) 

DO  200  1*2, NX 
200  SO(I,2}>3.*(S0(I.3)-S0(I,4)}-i-S0(I,5) 

IP  ( KDES . LT . NOES )  GO  TO  130 

GO  TO  220 
210  IP  (J0.EQ.1)  GO  TO  370 

JO-1 

GO  TO  140 
220  RATE«0. 

IP  (NRES.GT.I)  RATE*(ABS(RES(NRES}/RES(1} } }**(1./( COUNT (NRES) 
1  -COUNT(I))) 

WRITE  (IWRIT,550) 

WRITE  (IWRIT,830)  RES ( 1 ), RES ( NRES ), COUNT ( NRES ), RATE 

CALL  SECOND  (T) 

WRITE  (IWRIT,840)  T 

WRITE  (IWRIT,660} 
230  CONTINUE 

LZ*NZ/2-f1 

VOLDRG-0. 

DO  240  K>K1,X2 

I1»ITE1(K) 

X(I1)«XC(K)+.5»SCAL*(A0(I1)*A0(I1)-S0(I1,K)*S0(I1,K)) 

Z(LZ)»ZC(K)+.5*SCAL*(A0(LZ}*A0(LZ)-S0(LZ,K)*S0(LZ,K)} 

CHORD (K)-Z( 11 )-Z(LZ} 

SECDR6(K)>0. 

DO  240  I«2,NZ 
240  IDRGPLT(I,K)— 2 

IZDUMSKTE2-1 

S»0. 

00  250  K-KTE1,IZDUM 

DZ0*.5*(Z(K-t-1)-Z(K}  ) 
250  S>S-i-OZ0*(CHOIU3(K->-1)-^CHORD(K)  ) 

SCALZ»0. 

CALL  DRAGC  (O.SCALZ) 

DO  260  K-KTE1,KTE2 

DO  260  I>ITE1(K) ,ITS2(K} 

IP  (IDRGPLTd.K)  .EQ.-1)  THEN 

CDRGPLTd.K)-' .  ' 

ELSE 

ENCODE  (8,880,CDRGPLT(I,K) )  IDRGPLT(I,K) 

ENOIP 
260  CONTINUE 
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WRITE    (XWRIT,660) 

WRITE    (IWRIT,560)    VOLDRG 

LX^NX/2+^ 

IX0>NIN0(LX-f-56,ITE2(KTE1)} 

DO    290    I-LZ,ITE2(KTE1} 

K£>UM*0 

DO  270  K>KTE1,KTE2 
270  17  (lORGPLTd.K)  .EQ.-2)  GO  TO  280 

KDUM-KTE2 

GO  TO  290 
280  1CDUM»K-1 
290  IF  (KDUM.GE.KTED  WRITE  (IWRIT,790}  (CDRGPLT( I.K) ,K>KTE1 ,KDUM) 

DO  310  K*3,MZ 

IF  (K.LT.KTE1.0R.K.GT.KTE2>  GO  TO  310 

I1»ITE1(K) 

I2«ITE2(K) 

CALL  VELO  (K,K,SV,SM,CP,X,Y,UC,VC,WC) 

CH0RD(K)»X(I1)-X(LX) 

SECORG ( K ) aSECDRG ( K ) /CHORD ( K ) 

CALL  FORCF  ( II . I2,X, Y,CP,AL,CEORD(K) ,XC(K) ,SCL(K) ,SCD(K} ,SCM(K} ) 

IF  (KPLOT.GT. 1.AND.K.GT.KTE1}  GO  TO  300 

WRITE  (IWRIT,660) 

WRITE  (IWRIT,570) 

WRITE  (IWRIT,720)  FMACH.YA.AL 
300  WRITE  (IWRIT,580) 

WRITE  (IWRIT,720)  Z(K) ,SCL(X) ,SCD(K) ,SECDRG(K) ,SCM(K) ,CHORD(K) 

IF  (KPL0T.LE.2)  CALLCPLOT  (11 , l2,SM,aC, VC,QPRE( 1 ,K) ,A0 ,SOPRE( 1 ,K) 
1  ,S0(1,K) ,FMACH) 
310  CONTINUE 

CALL  TOTFOR  (KTE1 ,KTE2, CHORD, SCL,SCD,SCM,Z ,XC,CL,CD1 , CMP, CMR.CKY 
1  , AWING) 

CD1"CYAW»CD1 

CD-CD0+CD1 

VLD1-0. 

IF  (ABS(CDI) .GT.1.E-6)  VLD1-CL/CD1 

VLD-0. 

IF  (ABS(CD) .GT. 1.E-6)  VLD-CL/CD 

WRITE  (IWRIT,660) 

WRITE  (IWRIT,590) 

WRITE  (IWRIT,740)  FMACH,yA,AL 

WRITE  (IWRIT,600)  CL , GDI , CDO ,CD , VLD1 , VLD 

WRITE  (IWRIT,610)  VOLDRG, CMP, CMR.CMY, AWING 

IF  (KPL0T.LT.1)  GO  TO  320 

SCALX>0. 

CALL  DRAGC  (1,SCALX} 

NF1-11 
320  IF  (IST0P.EQ.1)  GO  TO  370 

IF  (FHALFtNM) .EQ.O. )  GO  TO  340 

NXaNX-t-NX 

NY-NY+NY 

NZaNZ-t-NZ 

FDIM"FHALF(2) 

CALL  COORD  ( NX,NY,NZ ,XTEO , ZTIP,ZMAX, ZMAX, SY. SCAL , SCALZ , AX, AY, AZ , AO 
1  ,A1,A2,A3,B0,B1 ,B2 ,B3 ,Z ,C1 ,C2,C3 ,ISRC, JSRC,KSRC, YSHRNK,ZSHRNK} 
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CALL  SINGL  (NC.NZ ,KTE1 ,KTE2, CHORD 0 .SWEEP 1 ,SWEEP2, SWEEP, DIHED1 

1  ,DIHE22,DIHED,ZS,XLE,yLE,XC,XZ,XZZ,YC,yZ,YZ2,Z,C1,C2,C3,El,E2,E3 

2  ,E4,E5,IND,CL0,CLPRE) 

CALL  SURF  (ND,NE,NC,NX,NZ,ISYM,KTE1,KTE2,SCAL,YAW,A0,Z,ZS,XC,YC 

1  ,SLOPT,TRAIL,XS,YS,NP,ITE1,ITE2,IV,SO,20,XP,YP,D1,D2,D3,X,Y,1ND 

2  ,XZ,yZ,A1,C1) 

IF  (IND.EQ.O)  60  TO  360 

IF  (FDES(I) .GT.O. )  CALL  SETQS  (HE.BIX.QPRE.SO ,S0PRE,ITE1 ,ITE2,KTE1 

1  ,KTE2,Z,ZQSTA,A0,PCQ1,PCQ2,PCQ3,UC,VC,QQ1,QQ2,QQ3,QQ4,FC31,PCS2 

2  .DSURF.NQSTA) 
CALL  REFIN  (ALFO) 
IREFIN-1 

IF  (lO.EQ.O)  GO  TO  330 
N>N1 
N1*N2 
N2«N3 
N3>H 
im>NM-«-1 
HIT»0 
GO  TO  60 
330  m*NX/2 
NY-NY/2 
NZ*NZ/2 
FDIM-FHALF ( 1 ) 

CALL  COORD  (NX.NY.NZ ,XTEO ,ZTIP,XMAX,ZMAX,SY,SCAL,SCALZ,AX,AY,AZ ,A0 
1  ,A1,A2,A3,B0,B1,B2,B3,Z,C1,C2,C3,ISRC,JSRC,KSRC,YSHRNK,ZSHRSK) 
CALL  SINGL  (NC.NZ.KTEI ,KTE2,CHORD0 ,SWEEP1 ,SWEEP2, SWEEP, DIHSD1 

1  ,DIHED2,DIHED,ZS,XLE,yLE,XC,XZ,XZZ,YC,YZ,YZZ,Z,C1,C2,C3,E1,E2,E3 

2  ,E4,ES,INO,CL0,CLPRE) 

CALL  SORF  (ND,RE,RC,IIX,NZ,ISYM,KTE1,KTE2,SCAL,YAW,A0,Z,ZS,XC,YC 

1  ,SLOPT,TRAIL,XS,YS,NP,ITE1,ITE2,IV,S0,Z0,XP,yP,D1,D2,D3,X,Y,IND 

2  ,XZ,YZ,A1,C1) 

IF  (IND.EQ.O)  GO  TO  360 

GO  TO  210 
340  K1-KTE1-1 

K2-KTE2+ITE2 ( KTE2 ) -NX/2 

WRITE  (8)  NX,NY,NZ,NM,K1,K2,NIT 

WRITE  (8)  RX,RY,RZ,AL 

WRITE  (6,620) 

DO  350  K*1,MZ 

WRITE  (8)  ((G(I,J,K),I»1,MX),J»1,MY) 
350  CONTINUE 

WRITE-  (8)  (E0(K),K»K1,K2) 

END  FILE  8 

REWIND  8 

GO  TO  370 
360  WRITE  (IWRIT,660) 

WRITE  (IWRIT,630) 
370  CONTINUE 

WRITE  (19)  ((S0(I,K),I»1,MX),K-1,MZ) 

IF  (KPL0T.GE.1)  CALL  NACELLE  (KPLOT) 

IF  (FDES(I).GT.O. )  CALL  WNGPRNT 

STOP  0101 
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380  FORMAT  (1H0 , 18X,27ENYU  INVERSE  SWEPT  WING  CODE) 

390  FORMAT  ( 1H0 , 2X, T4HTSTEP  ,14HF00  ,14HF01 

1  ,14HF11  /1H  ,2X,4E14.5/1H0,2X,14EFOPT  /1H  ,2X 

2  ,E14.5) 

400  FORMAT  ( 1H1 ,4(/1H0 ) , 15X,47HINDICATIOH  OF  LOCATION  OF  WING  AND  VORT 
1BX  SHEET/27X,23HCOORDINATB  PLANE  Y  ■  0 ./25X,26H( ( IV( I,K) ,KaK1 ,K2} , 
2I>2,NX)) 

410  FORMAT  ( 1H1 , 2 (/1H0 ) ) 

420  FORMAT  ( 11X,52HCHORDWISE  CELL  DISTRIBUTION  IN  SQUARE  ROOT  PLANE  AN 
10/11X,50H  MAPPED  SURFACE  COORDINATES  AT  CENTER  LINE  AND  TIP/1H0,12 
2  X,15H         X       ,15H    ROOT  PROFILE, 15H    TIP  PROFILE  ) 

430  FORMAT  (21X,14H   TE  LOCATION  ,14H    POWER  LAW   ) 

440  FORMAT  ( 14X,45HN0RMAL  CELL  DISTRIBUTION  IN  SQUARE  ROOT  PLANE/35X,2 
1  H  Y) 

450  FORMAT  (21X,14H   SCALE  FACTOR, 15H     POWER  LAW   ) 

460  FORMAT  (14X,45H  SPANWISE  CELL  DISTRIBUTION  AND  SINGULAR  LINE/1H0,3 

1  X,9H      Z    ,9H  X  SING   ,9H  Y  SING   ,9H     XZ    ,9H     YZ    ,9H 

2  XZZ   ,9H     YZZ   ) 

470  FORMAT  (1H0,20X,15H    TIP  LOCATION, 15H     POWER  LAW   ) 

4B0  FORMAT  (1H0 ,29X, 18HITERATIVE  SOLUTION/1H0 , 17X,42HSTRIP  WIDTH  FOR  H 

10RIZ0NTAL  LINE  RELAXATION) 
490  FORMAT  (1H0,14X,15B        NX       ,15H        H7      ,15H        H 

1Z      ) 
500  FORMAT  (1H0 ,  18X,  10HHACH  NO    ,16H         YAW      ,15H   ANG  OF  ATTA 

1CK) 
510  FORMAT  (  1H0 ,  18X,  10HREL  FCT  1  ,16H      REL  FCT  2   ,  9H      BETA) 
520  FORMAT  ( 1 OHOITERATION, 15H     CORRECTION  ,4H   I  ,4H   J  ,4H   K  ,15H 

1  RESIDUAL   ,4H   I  ,4H   J  ,4H   K  ,15H   SEC  LIFT  COR  ,4H   K  ,10H 

2  RALF   ,10B  SONIC  PTS) 

530  FORMAT  ( 10H0ITERATION, 15H     CORRECTION  ,4H   I  ,4H   J  ,4H   K  ,15H 

1     RESIDUAL   ,4H   I  ,4H   J  ,4H   K  ,15H     AVERAGE  Q   ,15H     MA2I 

2MUM  Q   ,4H   I  ,4H   K  ,10H       DRAG,10H         CL) 
540  FORMAT  (1H0,7H    ITER,11H     CORK    , 3H   I , 3H   J , 3H   K,11H     RESI 

ID   ,3H   I,3H   J,3H   K,8H    CL    ,7H  DRAG   ,5HS0NIC,6H   ANG  ) 
550  FORMAT  (1H0,7X,14H  MAX  RESIDAL  1,1 5H   MAX  RESIDAL  2,15H        WORK 

1     ,15H   REDUCTN/CYCLE) 
560  FORMAT  (28X,12HWAVE  DRAG  ■  ,F8 . 5 ,/,27X, 'PRINTOUT  OF  IDRAG( I ,K) ' ,/23X 

1  ,'DOTS  INDICATE  SUBSONIC  POINTS') 
570  FORMAT  (24H0SECTION  CHARACTERISTICS/ 15H0     MACH  NO    ,15H        Y 

1AW      ,15H   ANG  OF  ATTACK) 
580  FORMAT  (/13H  SPAN  STATION, 12X, 2HCL, 1  OX, 5HCDCLD , 1  OX, 5HCDNEW, 13X, 2HC 

1M,10X,5HCHORD) 
590  FORMAT  ( IHO , 30X, 20HWING  CHARACTERISTICS/1H0 , 17X, 14H     MACH  NO    , 

1  1 5H      YAW        , 1 7H     ANG  OF  ATTACK ) 

600  FORMAT  (1H0,17X,14H  CL  ,15H  CD  FORM  ,15H  CD  FRI 
1CTI0N/1H  ,16X,F12.5,3X,F12.5,2X,F12.5/1H0,17X,14H     CD         ,15 

2  H      L/D  FORM   ,15H     L/D         /1H  , 16X,F12. 5 , 3X,F12. 5 ,2X,F12 

3  .5) 

610  FORMAT  (1H0,17X,15H  CD  WAVE  ,15H  CM  PITCH  ,15H  CM  ROL 
1L  /1H  ,16X,F12.5,3X,F12.5,2X,F12.5/1H0,17X,15H  CM  YAW  , 
2  15H     AWING       /1H  , 16X, F12 . 5 , 3X, F12 . 5 ) 

620  FORMAT  (1X,14HWRITE  ON  TAPE8) 

630  FORMAT  (24H0BAD  DATA, SPLINE  FAILURE) 

640  FORMAT  (8E10.7) 
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(A80) 

(1H1,3(/1H0)) 

(10X,3F15.5) 

(17X,2rl5.5) 

(25X,rl5.5) 

(3X,7F9.5) 

(11X,F15.5,X,2F15.5) 

(ri2.5,7F15.5) 

(36X,P6.4) 

(1H  ,16X,F12.5,35t,F12.5,2X,P12.5) 

(1H0,7X,14HFIT(NM)        ,14HC0V0(NM)       ,14HP10(NM) 

20(im)        /1H  ,2X,4E14.5/1H0,7X,14HP30(im}        ,14HBET 
,14HIIHALP(NM)      ,14UPDES(NM}       /,1H  ,2X,4E14.5} 

(1H0,2X,A80} 

(9X, 115, 1X, 2115) 

(13X,3214) 

(14X,28A5} 

(3X,14,X,E10.3,X,3l3,X,E10.3,X,313,X,P4.2,X,Ea.2,15,X,P6.3) 

( 11 0, El  5. 5, 314, El 5. 5, 314, 2E1 5. 5, 214, PI  0. 4, P6. 2} 

(110,E15.5,314,E15.5,314,E15.5,14,P10.5,I10) 

(1H  ,4X,2E15.4,2P15.4) 

(1H0,20X,14HCOMPnTING  TIME, PI 0 . 3, 1 0H    SECONDS) 

(1H1///) 

(1H0,7X,14HPNX  ,14HPNY  ,14HPNZ 

1   ,14HPPL0T  /1H  ,2X,4E14.5/1H0,7X,14EXSCAL  ,14HPSC 

2AL  ,14HPC0NT  ,14H  /1H  ,2X,4E14.5) 

870  PORMAT  ( 1H0 , 7X, 14HPMACH  ,14HYA  ,14HAL 

1   /1H  ,2X,3E14.5/1H0,7X,14HCD0  ,14HSREP  ,14HSUR 

2PC0NT       /1H  ,2X,3E14.5) 
880  PORMAT  (14) 
END 


SUBROUTINE  ANGAT  ( AL, ALPHA, CYAW,CA,SA, RAD, CL,CLTARG, PR) 
C  THIS  ROUTINE  RELAXES  THE  ANGLE  OP  ATTACK  TO  GET  A  SPECIFIED  LIFT  COEFP 
FAC-0.7»(1.-ABS(9.2/ALOG(ABS(FR) ) )) 
IP  ( PAC . GT . 0 . )  THEN 
AL-AL+PAC* ( CLTARG-CL ) 
ALPHA>AL/RAD 
CA«CyAW*COS (ALPHA) 
SA'CYAW* S IN ( ALPHA ) 
ENDIP 
END 


650 

PORMAT 

660 

PORMAT 

670 

PORMAT 

680 

PORMAT 

690 

PORMAT 

700 

PORilAT 

710 

PORMAT 

720 

PORMAT 

730 

PORMAT 

740 

PORMAT 

750 

PORMAT 

4 

1   ,14H] 

2A0(NM) 

760 

PORMAT 

770 

PORMAT 

780 

PORMAT 

790 

PORMAT 

800 

PORMAT 

810 

PORMAT 

820 

FORMAT 

830 

PORMAT 

840 

fORMAT 

850 

PORMAT 

860 

PORMAT 

SUBROUTINE  MIXPLO 
C      SOLUTION  OP  EQUATIONS  FOR  MIXED  SUBSONIC  AND  SUPERSONIC  PLOW 
C      USING  ROTATED  DIFFERENCE  SCHEME 

COMMON  G( 200, 35, 35),  S0(200,35),  E0(202),  Z0(202),  1V(200,35). 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(3j), 

2  31(35),  B2(35),  B3(35),  Z(35),  C1(35),  C2(35),  C3(35),  XC(35),  XZ 
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3  (35),  XZZ(35),  yC(?5),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAIi,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2, 

5  N3,  10,  NDES,  TSTEP,  BPS1,  QPRE(200 ,35} ,  SOPRE( 200 ,35} ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35},  PCQ2(35),  PCQ3(35},  QQ1(35),  QQ2(35),  QQ3(35 

7  },  QQ4(35},  PCS1(35},  PCS2(35},  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 

S  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IORGPLT( 200 , 35 ) ,  SECDRG(35} 
9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC 

COMMON  /FLO/  P1 ,  P2,  P3,  BETA,  FR,  IR,  JR,  KR,  DG,  IG,  JG,  KG,  NS, 
1  FSWEEP,  INDCF 

COMMON  /SWP/  DXYZ(200},  GK1(200,35},  GX2(200,35},  SX(200},  SZ(200} 

1  ,  SXX(200},  SXZ(200},  SZZ(200},  R0(200},  R1(200),  C(200}.  0(200), 

2  G10(35},  620(35),  G30(35).  G40(35),  G1(35},  G2(35},  II,  12.  K,  L, 

3  NO,  LX,  MX,  KY,  MY,  T1 ,  AAO ,  Q1 ,  Q2,  TYAW,  SI,  BETX,  B2TY,  BETZ, 

4  BSCAL,  BSCAL1 

COMMON   /DIM/   RX,    RY,    RZ,    FDIM 
BETX-(1.28}/(NX) 
BETY»(3)»(1./{NY)} 
BETZ«(2.4)*(1./(NZ)} 
BSCAL-1. 
BSCAL1-1. 
LXpNX/2+1 
MX»NX+1 
KY-NY+ 1 
MY"Brr+2 

TYAW»SYAW/CYAW 
S1>.5*SCAL 
DX*2.*RX/NX 
T1»DX»DX 

AAO>  1 .  /FMACH*«2-K  .  2 
Q1-2./P1 
Q2-1./P2 
FR-0. 
IR-O 
JR»0 
KR«0 
IG-0 
JG-0 
KG-0 
NS>0 
K1-3 
K2>NZ^2 
F'ABSC .5«NX} 
L«F 

IF  (L.EQ.NX/2}  L-L-1 
I1-LX-L 
I2*LX-t-L 

IF  (L.EQ.O)  I2-LX-1 
DO  10  J»1,MY 
DO  10  1-1, MX 
GX1(I,J)»G(I,J,1) 
GK2(I,J)»G(I,J,1) 
10  CONTINUE 
K-2 
L-2 
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H0-KTE1-1 

IF  (K.EQ.K1)  GO  TO  60 
I-LZ 

DS1-S0(I+1,3)-S0(I-1>3) 
DSK»S0(I,4)-S0(I,2) 
SX(I)-A1(I)»DSI 
SZCI}»C1(3}«0SK 
R»1.0 

DO  20  J>2,KY 
YP-B0(J)+S0(I,3) 

17  (J.EQ.KY)  R-AMIN0(1,IV(I,K)) 
H»R/(1.-R+YP»yP) 
A2—YP»YZ(3) 
BZ«YP*XZ(3} 
A-H*AZ*A1(I) 

B»(H*(BZ-AZ*SZ(I))-SZ(I))*B1(J) 
DGI»G(I+1,J,3)-G(I-1,J,3) 
DGJ»G(1,J+1,3)-G(I,J-1,3)  • 
G(1,J,2)-G(1,J,4)+(A»DGI-B»DGJ)/C1(3) 
6K1(I,J)»G(I,J,2) 

G(I,J,1)-3.»(G(I,J,2)-G(I,J,3))+G(I,J,4) 
GK2(1,J)«G(1,J,1) 
20  CONTINUE 
J-KY+1 

G(I,J,2)»G(I,J,4)+( A*DGI -B»DG J ) /C 1 ( 3 ) 
GK1(I,J)-G(I,J,2) 

G(I,J,1)«3.»(G(I,J,2)-G(I,J,3))+G(I,J,4) 
GK2(I,J}>G(I,J,1) 
M-NX/2-1 
DO  50  II»1,M 

DO  40  I»LX-II,LX+II,II+II 
DSI-S0(I+1,3)-S0(I-1,3) 
DSK-S0(I,4}-S0(I,2) 
SZ(I)»A1(I}*DSI 
SZ(I)»C1(3)»DS1C 
DO  30  J»2,KY 
YI»»B0(J)+S0(I,3) 
H« 1 . / ( AO ( I ) ♦AO ( I ) +YP»YP ) 
AZ—AO  ( I )  •XZ  (  3  )  -YP*YZ  (  3  ) 
BZ»-AO ( I ) ♦YZ C3 ) +YP*XZ ( 3 ) 
S»SIGN( 1 . ,AZ) 
A-H*ABS(AZ}*A1(I) 
B> ( H* ( BZ-AZ*SX( I ) ) -SZ ( I } ) *B1( J ) 
IP»I+IPIX(S) 
IM»I-IFIX(S) 
DGI«G(I,J,4}-6(IM,J,4) 
DGJ-G(I,J+1,3)-G(I,J-1,3) 
G(I,J,2)-(C1(3)»G(I,J,4)+A»(G(IP,J,2)+DGI)-B»DGJ)/(C1(3)+A) 

GK1(I,J)-G(I,J,2) 

G(I,J,1)-3.»(G(I,J,2)-G(I,J,3))+G(I,J,4) 

GK2(I,J)«G(I,J,1) 

30  coirriNXTE 

J-KY+I 
G(I,J,2)-(C1(3)»G(I,J,4)+A»(G(IP,J,2)+DGI)-B»DGJ)/(C1(3)+A) 
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GK1(I,J)>G(I,J,2) 
40  CONTINUE 
50  CONTINUE 

KK-K+1 

K3aK2+1 
60  DO  100  K-KK,K2 

DO  70  J»1,My 

G10(J)»G(I2,J,K) 

G20(J)«G(I2-1,J,1C) 

G30(J)»G(I1,J,1C) 

G40(J)«'G(I1  +  1,J,1C) 
70  CONTINUE 

DO  80  I>2,NZ 

DSI-S0{I+1,K)-S0(I-1,K) 

DSK»S0(I,K+1)-S0(I,K-1) 

DSII»S0(I+1,K)-S0(I,K)-S0(I,K)+S0(I-1,K)+A3(I)*DSI 

DSKX»S0(I,K+1)-S0(I,K)-S0(I,K)+S0(I,1C-1)+C3{K)*DS]C 

DSIK»S0(I+1,1C+1)-S0(I-1,K+1)-S0(I+1,IC-1)+S0(I-1,1C-1) 

SZ(I)-A1(I)*DSI 

SZ(I)«C1(K)»DSK 

SXX(I)»A2(I)*DSII 

SZZ(I)-C2(K)«DSKX 

SXZ(I)-T1*A1(I)»C1(K)*DSI1C 
80  CONTINUE 

L>K 

17  (I2.GT.I1)  THEN 

CALL  VYSWEEP 

ENDiy 

IF  (K.GT.KTE2.AND.YAW.GT.0. }  THEN 

I0»ITE1(K)+1 

DO  90  I-I0,LX 

M»NX+2-I 

EbG(M,KY,K}-G(I,KY,K) 

N0»N0-i-1 

E0(NO)»E0(NO)+P3»(E-EO(NO) ) 
90  CONTINUE 

END  IF 
100  CONTINUE 
C      BOUNDARY  CONDITION  AT  INFINITY  REPLACED  BY  MIXED  DIRICHLET 
C      AND  NEUMANN  CONDITION  AT  CONTROL  SURFACE 

ITMP-0 

DO  110  1-1, MX 

DO  110  J-1,MY 

G(I,J,K3)«G(I,J,K2-ITMP)-(BETZ/BSCAL1)»G(I,J,K2) 
110  CONTINUE 

DO  120  J»1,KY 

G(I2+1,J,2)»G(I2-ITMP,J,2)-(BETX/BSCAL)»G(I2,J,2) 

G(I1-1,J,2)»G(I1-t-ITMP,J,2)-(BETX/BSCAL)»G(I1,J,2) 
120  CONTINUE 

DO  130  I"1,MX 

G(I,J1-1,2)»G(I,J1+ITMP,2)-(BETY/BSCAL1)»G(I,J1,2) 
130  CONTINUE 

FR"1.2»FR/AA0 

RETURN 
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END 


SUBROUTINB  VYSWEEP 
C      THIS  VERSION  OP  SUBROUTINE  YSWEEP  IS  VECTORIZED  AND  CAN  BE  INVOKED 
C      ROW  REUUCATION 

COMMON  G(200,35,35),  S0(200,35}.  E0(202).  Zp(202),  IV(200.35}, 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  Z(35),  C1(35),  C2(35),  C3(35),  XC(35),  XZ 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2, 

5  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 ,35 ) ,  SOPRE( 200 ,35 ) ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  KOO,  F01, 

8  no,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IOR6PLT(200 ,35) ,  SECDRG(35) 

9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC 

COMMON  /FLO/  P1 ,  P2,  P3 ,  BETA,  FR,  IR,  JR,  KR,  DG,  IG,  JG,  KG,  NS, 
1  FSWEEP,  INDCF 
COMMON  /SWP/  DXYZ(200),  GK1(200,35),  GK2(200,35),  SX(200),  SZ(200) 

1  ,  SXX(200),  SXZ(200),  SZZ(200),  R0(200),  R1(200},  C(200),  D(200), 

2  G10(35),  G20(35),  G30(35),  G40(35),  G1(35),  G2(35),  11,  12,  K,  L, 

3  NO,  LX,  MX,  KY,  MY,  Tl ,  AAO ,  01,  02,  TYAW,  SI,  BETX,  BETY,  BETZ, 

4  BSCAL,  BSCAL1 

COMMON  /DIM/  RX,  RY,  RZ,  FDIM 

COMMON  /CRAY/  KA 

COMMON  /VECT/  YP(200),  SAVE(200),  TEMP2(200),  TEMP(200),  TEMPI (200 

1  ),  AJ(200),  H(200),  FH(200),  AZ(200),  BZ(200),  CZ(200),  DZ(200), 

2  DGI(200),  DGJ(200),  DGK(200),  U(200),  V(200),  W(200),  AU(200),  AV 

3  (200),  QQ(200),  HOLD1(200),  HOLD2(200),  HOLD3(200),  HOLD4(200), 

4  HOLD5(200),  HZ(200),  AA(200),  FXX(200),  FYY(200),  FXY(200),  BV(20 

5  0),  UU(200),  W(200),  WW(200),  UV(200),  UW(200),  VW(200),  AZ.'3(200 

6  ),  AXX(200),  AXZ(200),  R(200),  AXT(200),  AYT(200),  AZT(200),  DGII 

7  (200),  DGJJ(200),  DGIJ(200),  DGIK(200),  DGJK(200),  AC(200),  AB(20 

8  0),  AYY(200),  AYZ(200),  BP(200),  BM(200),  B(200},  AXY(200),  CG(20 

9  0),  DGKK(200),  A(2C0),  S(200) 
J1-2 

IF  (FMACH.GE.1. )  J1»3 

C(I1-1)»0. 

D(I1-1)«0. 

DO  10  1-11,12 

R0(I)«1. 

R1(I)«1. 

6K1(I,1}>G(I,1,L) 
10  GK1(I,J1-1)-G(I,J1-1,L) 

J-J1 

13-12 
20  BC— T1»B1(J)»C1(K) 

DO  30  1-11,13 

YP(I)-SO(I,K)>BO(J) 

3AVE(I)-1.0-R0(I) 

TEMP2 ( I ) -YP ( I ) ♦YP ( I ) 

TEMP ( I ) -A0 ( I } •AO ( I ) 
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AJ ( I ) -SAVEt 1 ) +TEMP2 ( I ) +TEMP( I ) 
30  CONTINUE 

DO  40  1-11,13 

H(I)»R0(I)/AJ(I) 

FH(I}>R0(I}*AJ(I) 

TEMP 1(I)-A0{I)»(4. •TEMP2 ( 1 ) -FH ( I ) ) 

TEMP2 ( I ) -yp ( I ) ♦ ( 4 . •TEMP ( I ) -FH ( I ) ) 

AT>ZZ ( K } 'XZ ( K } - YZ ( K ) *yZ ( K ) 

BT>(ZZ(K}-t-ZZ(K}  )*YZ(K) 

AZ(I)«-AO(I)»XZ(K)-YP(I)»YZ(K) 

BZ  ( I )  — AO  ( I  }  •YZ  ( K  )  -•■  YP  (  I )  •XZ  ( K ) 

TEMP ( I ) -H ( I ) ♦H ( 1 ) 

CZ ( I ) »TEMP ( I ) • ( TEMP 1(1) ♦AT-TEMP2 ( I ) ♦BT ) -SCAL* ( AO ( I ) ♦XZZ ( K ) +yp ( I ) 
1  •YZZ(K)) 

DZ ( 1 ) "TEMP ( I ) ♦ ( TEMP2 ( I ) ♦AT+TEMPI { I ) ♦BT ) -SCAL* ( AO ( I ) ♦YZZ ( K ) -YP ( I ) 
1  AXZZCK)) 
40  CONTINUE 

DO  50  I»I1,I3 

DGI(I)-G(I+1,J,L)-G(I-1,J,L) 

DGJ(I)«G(I,J+1,L)-GK1(I,J-1) 

DGK(I)»G(I,J,L+1)-GK1(I,J) 
50  CONTINUE 

DO  60  I>I1,I3 

TEMP1(I)»A1(I)*DGI(I) 

TEMP2 (I ) »-B 1 ( J ) ADG J ( I } 

0(1) -TEMP 1 ( I ) -SX ( I ) •TEMP2 ( I ) +CA»AO ( I ) +SA»YP ( I ) 

V ( I ) •TEMP2 ( I ) +SA»AO ( I ) -CA»YP ( I ) 

W(I)«R0(I)»(C1(K)»DGK(I)-SZ(I)«TEMP2(I)+SYA»+CA»XZ(K)+SA*YZ(K)+H(I 
1  )»(U(I)»AZ(I)+V(I)»BZ(I))) 

AU(I)»U(I)+W(I)»AZ(I) 

AV(I)«V(I)+W(I)*BZ(I) 

TEMP(I)»H(I)»(U(I)»U(I)+V(I)»V(I) ) 

QQ ( I ) -TEMP ( I ) +W ( I ) »W ( I ) 
60  CONTINUE 

FREEZE  THE  COEFFICIENTS  NEAR  THE  SOURCE 

IF  ( (ABS( J-JSRC) .LE. 1 ) .AND. (ABS(K-KSRC) .LE. 1 ) .AND. (INDCF.EQ. 1 } ) 
1  THEN 

IF  (ISRC.LT.LX)  THEN 

IIA—6 

IIB>2 

ELSE 

IIA—2 

IIB>6 

END  IF 

DO  70  I»ISRC-»-IIA,ISRC>IIB 

U(I)-CA*A0(I)-fSA*(B0(J)-fS0(I,K)) 

V(I)-SA»AO{I)-CA»(BO(J)+SO(I,K)) 

W(t)»0.0 

TEMP(I)-H(I)*(0(I)»U(I)*V(I)»V(I)) 

AU(I)-U(I)+W(I)»AZ(I) 

AV ( I ) - V ( I ) +W ( I ) •BZ ( I ) 
70  QQ(I)»TEMP(I)+W(I)^W(I) 

END  IF 

DO  80  1-11,13 
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H0LD1(I}-.2*QQ(I) 

AA(I)-OIM^AA0»HOLO1(I}) 

HZ ( I ) -AZ ( I ) *SX ( I ) -BZ ( I ) ♦FH ( I ) •SZ ( I ) 

TXX  (I)»1.0+E(I) •AZ ( I ) ♦AZ ( I ) 

ryy  ( i )  - 1 .  o +si:  ( i )  ♦sx  ( i )  +h  ( i )  ♦hz  ( i )  •hz  (  i  ) 
rxY(i)-sx(i)+a(i)»Az(i)»HZ(i) 

BV(I)«AV(I)-AO(I)»SX(I)-FH(I)»W(I)»SZ(I) 
80  CONTINUE 

DO  90  I>I1,I3 

UU(I)»H(I)»AU(I)»AU(I) 

W(I)-H(I)*BV(I)»BV(1) 

WW(I)»FH(I)*W(I)*W(I) 

OV(l)»H(I)»Aa(I)*BV(I) 

UW(I)-AU(1)*W(I) 

VW(I)»BV(I)»W(I) 

AXX  ( I )  ■  R 1  ( I )  ♦  ( FXX  ( I )  ♦  AA  ( I )  -  UU  ( I )  ) 

AZZ(I)-FH(I)*AA(I}-WW(I} 

AXZ  ( I }  >  (  2  .  0  •  R  0  ( I }  *  ( AZ  ( I }  •  AA  ( I )  -  UW  ( I )  )  } 
90  CONTINUE 

00  100  I»I1,I2 

E0LD1  ( I )  •-TEMP2  ( I )  •  ( AXX  ( I }  *S1X  ( I )  -i-AZZ  ( I }  •SZZ  ( I )  -f  AXZ  ( I )  aSXZ  ( I )  ) 

H0LD2(I)»(AA(I)»(CZ(I)»TEMP1(I)+(DZ(I)-SX(I)*CZ(I) )*TEMP2(I) ) )»R0 
1  (I) 

H0LD3(I)>CA«(AU(I}*AU(I)-AV(I)*AV(I)  ) -f  (  SA-t-SA)  •AUC I )  «AV(  I } 

H0LD4  ( I }  >TEMP  ( I )  •  ( U  ( I }  vAO  ( I )  -t-V  ( I }  *TP  (I}+2.0«W(I)*(A0(I)  aAZ  ( I )  +YP  ( I 
1  )»BZ(I))) 

H0LD5(I)»-WW(I)»(CA*XZZ(K)+SA*yZZ(K) ) ♦SCAL-W(I ) ♦W(I)»(U( I ) ♦CZt I ) +V 
1  (I)*DZ(I)) 

R(I)>H0LO1(I}-»-T1*(H0LI)2(I}-H(I)*(H0LO3(I)-H0LD4(I}  )-i-H0LD5(I)  } 
100  CONTINUE 

DO  110  I»I1,I3 

AXT(I)»AU(I)»A1(I) 

AXT(I}»ABS(AXT(I) ) 

AYT(I)«BV(I)*B1(J) 

AYT( I ) aABS (AYT( I ) ) 

AZT(I)»FH(I)»W(I)*C1(K) 

AZT(I}«ABS(AZT(I) } 

SAVE(I)«AMAX1(AXT(I) .AYTtl) ,AZT( I ) , ( 1 . -RO ( I ) )) 

H0LD1 ( I ) -RO ( I ) •BETA^AA ( I ) /SAVE ( I ) 

AXT ( I ) -AXT ( I ) ♦HOLDI ( I ) 

AYT ( I ) -AYT ( I ) ♦HOLD 1(1) 

AZT ( I ) "AZT ( I ) •HOLD 1(1) 
110  CONTINUE 

DO  120  I»I1,I3 

DGII(I)-G(I+1,J,L)-G(I,J,L)-G(I,J,L)+G(I-1,J,L)+A3(I)»DGI(I) 

DGJJ(I)»G(I,J+1,L)-G(I,J,L)-G(I,J,L)+G(I,J-1,L)-B3(J)»DGJ(I) 

DGiaC(I)-G(I,J,L-4-1)-G(I,J,L)-G(I,J,L)-fG(I,J,L-1)-^C3(K)*DGX(I) 

DGIJ(I)-G(I+1,J+1,L)-G(I-1,J+1,L)-G(I+1,J-1,L)+G(I-1,J-1,L) 

DGIK(I)-G(I+1,J,L+1)-G(I+1,J,L-1)-G(I-1,J,L+1)+G(I-1,J,L-1) 

DGJK(I)-G(I,J+1,L+1)-G(I,J-1,L+1)-G(I,J+1,L-1)+G(I,J-1,L-1) 

AC(I)»T1»A1(I)»C1(K) 

AB(I)—T1»A1(I)»B1(J) 

AXX( I) -AXX( I ) •A2 ( I } 

AYY(I)»(FYY(I)»AA(I)-W(I))»B2(J) 


-  107  - 


AZZ(I}>AZZ(I)*C2(K) 

AXY ( I ) ■ - R 1 ( I ) ♦ ( Fry  ( 1 ) ♦ AA ( I ) + UV ( I ) ) ♦ ( AB ( I ) + AB ( I ) ) 

AZZ ( I } 'AZZ ( I ) •AC ( I ) 

AYZ ( I ) — RO ( I ) ♦ ( HZ ( I ) ♦AA ( I ) +VW (!))♦( BC+BC ) 

BP ( I } >AZX ( I } 

BM(I}«AXZ(I) 

B(  I }  — AZX(  I } -AZX(  I ) -Q1*  ( AYYC I }  ■►AZZ  (I )  ) 

SAVE ( I }  »AZZ(  I }  *DGII  ( Z  )  -t-AYTC  I }  'DajJC  I }  -t-AZZ  ( I }  •06KK(  I }  -i-AZYC  I )  •OGIJ  ( I 
1  )-KAyZ(I}*OGJK(I}-^AZZ(I}*DGIX(Z) 
120  CONTINUE 

DO  130  I»I1,I3 

IT    (QQd)  .LT.AA(I)}  GO  TO  130 

NS>NS-«-1 

S(I)»SIGN(1. ,U(I)) 

IM«I-IFIX(S(I) ) 

IMM»IM-IFIZ(S(I) ) 

AZZ(I}>ljn(I)*A2(I) 

AYY(I)»W(I)*B2(J) 

AZZ ( I ) aWW ( I ) 402 ( K ) 

AXYC I ) -B . ♦S ( 1 ) ♦UVC I ) ♦ABC  I ) 

AZZ  ( I }  ■  8 .  •  S  ( I )  •OW  ( I }  •  AC  ( I ) 

AyZ(l)»8.»VW(I)»BC 

BOLD 1 ( I ) • ( FZZ ( I } *QQ ( I } -OU ( I ) } •A2 ( I } 

H0LD2 ( I ) ■ ( FYY ( I ) •QQ ( I ) - W ( I ) ) ♦B2 ( J ) 

H0LD3(I)»(FH(I)»QQ(I)-WW(I) )*C2(K) 

H0LD4(I)  —  (FXY(1)*QQ(I)+UV(I)  )  ♦(  AB(  I ) +AB(  I )  ) 

H0L05  ( I }  •  ( AZ  ( I )  «QQ  (I)-nW(I))*(AC(I}  -t-AC  ( I }  } 

TEMP(I)  —  (HZ(I)*QQ(I)+VW(I)  )♦  (BC+BC) 

TEMP1(I)-AA(I)/QQ(I) 

TEMP2  ( I }  >H0LD1  ( I }  «OGII  ( I }  •(■H0LD2  ( I )  *06J J  ( I )  +H0L03  ( I )  •OGKX  ( I }  +H0LD4 
1  ( 1 ) •DGIJ { 1 ) +TEMP ( I ) •DGJK ( I ) +H0LD5 ( I ) ♦DGIK ( 1 ) 

DGII{I)»G(I,J,L)-G(IM,J,L)-G(IM,J,L)+G(IMM,J,L)+A3(I)»DGI(I) 

DG  J  J  ( I )  -G  ( I ,  J ,  L)  -G  ( I ,  J- 1 ,  L)  -G  ( I ,  J- 1 ,  L )  +GK 1  ( I ,  J-  2  )  -B3  ( J )  ♦DG  J  ( I ) 

DGKX ( I ) »G ( I , J , L ) -G ( I , J , L- 1 ) -G ( I , J , L- 1 ) +GK2 ( I , J ) +C3 ( K ) ♦DGK ( I ) 

DGIJ(1)»G(1,J,L)-G(IM,J,L)-G(I,J-1,L)+G(1M,J-1,L) 

DGIK(I)-G(I,J,L)-G(I,J,L-1)-G(IM,J,L)+G(IM,J,L-1) 

DGJK ( I ) -G ( I ,  J , L)  -G ( I ,  J , L- 1 )  -G ( I ,  J- 1 , L )  +G ( I ,  J- 1 , L- 1 ) 

TEMP ( I ) "AXX ( I ) •DGII ( I ) +AYY ( 1 ) •DGJ J ( I ) +AZZ ( I ) •DGKX ( I ) +AXY ( I ) •DGIJ ( I 
1  )+AYZ(I)»DGJK(I)+AXZ(I)^DGIK(I) 

B(I)«.5»(TEMP1(I)-1. )»(AXX(I)+AXX(I)+AXZ(I)*AXY(I) ) 

BP( I ) -TEMPI ( I ) ♦H0LD1 ( I ) - ( 1 . -S ( I ) ) •BC I ) 

BM( I ) "TEMPI ( I ) •H0LD1 ( I ) - ( 1 . 0+S ( I ) ) •BC I ) 

B ( I ) --TEMPI ( I ) • ( H0LD1 ( I ) +H0LD1 ( I ) +Q2^ ( H0LD2 ( I ) +H0LD3 (!)))+( TEMPI ( I 
1  )-1. )»(2.^(AXX(I)+AYY(I)+AZZ(I) ) +AXY( I ) +AYZ ( I ) +AXZ ( I ) ) 

SAVE ( I ) - ( TEMP 1 ( I ) - 1 . ) •TEMP ( I ) +TEMP1 ( I ) •TEMP2 ( I ) 
130  CONTINUE 

DO  140  1-11,13 
140  R(I)-R(I)+SAVE(I) 

IF  ( ( J.EQ. JSRC) .AND. (K.EQ.KSRC) )  THEN 

R(ISRC)-R(ISRC)+FINH1 

IF  (ISRC.GT.LX)  THEN 

R ( ISRC* 1 ) -R ( ISRC+ 1 ) ♦FINH2 

ELSE 

R(ISRC-1 )-R(ISRC-1 )+FINH2 
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ENDIF 

ENOIF 

00  150  I*I1,I3 

17  (ABS(R(I)).LE.ABS(Fll))  GO  TO  150 

FR-Rd) 

IR-I 

JR-J 

KRaK 
150  CONTINUE 

DO  160  I»I1,I3 

R(I)«R(I)-AyT(I)»(GK1(I,J-1)-G(l,J-1,L))-A2T(I)»(GK1(I,J)-G(I,J,L- 
1  D) 

B(I)-B{I)-AXT(I)-AYT(1)-AZT(I) 

BM(I)«BM(I)-i-AZT(I} 
160  CONTINUE 

DO  170  I»I1,I3 

B(1)-1.0/(B(I)-BM(1)»C(I-1)) 

C(1)=B(I)»BP(1) 
170  D(I)-B(I)»(R(1)-BM(I)»D(I-1)) 

1-I3 

CG(I3+1)»0. 

DO  160  M«I1,I3 

CG(I)-D(I)-C(I)»CG(I+1) 

GK2(I,J)-GK1(I,J) 

GK1(I,J}»G(I,J,L) 

G(I,J,L)»G(1,J,I.)-CG(I) 
180  I»I-1 

I-I3 

DO  190  M«I1,I3 

IF  (ABS(CG(I)).LE.ABS(DG))  GO  TO  190 

DG»CG(I) 

IG-1 

JG«J 

KG«K 
190  I-I-1 

J-J+1 

IF  (J-KY)  20,200,220 
200  IF  (I2.GT.ITE2(K))  I3»ITE2(K) 

IF  (ITE2(K) .EQ.MX)  I3bLX 

DO  210  I»I1,I3 

LV»IABS( 1-IABS(IV(I,K) ) ) 

RO(I)«AMINO(LV,IABS(IV(I,K) ) ) 
210  R1(I)»LV 

GO  TO  20 
220  N»NO 

I»LX+1 

IF  (K.LT.KTE1.0R.K.GT.KTE2}  GO  TO  240 

I0-NZ-f2-l3 

DO  230  1-10,13 

AJ(I)>1.-R0(I}>A0(I}*A0(I}-fS0(I,K}«S0(I,K} 

H(I)-RO(I)/AJ(I) 

FH ( I ) -RO ( I ) 'AJ ( I ) 

AZ(I}>-AO(I}*ZZ(K}-SO(I,K)«YZ(K) 

BZ(I)— AO(I}*YZ(K}-*-SO(I,K)«ZZ(K) 
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HZ ( I ) -AZ ( I ) •SX ( I ) -BZ ( I ) +FH ( I ) ♦SZ ( I ) 

FYY ( 1 ) - 1 . +SX ( I ) ♦SX ( I ) +H ( I ) ♦HZ ( I ) ♦HZ ( I ) 

FXY ( I ) -SX ( I ) +H ( I ) ♦AZ ( I ) ♦HZ ( I ) 

DGI{I)»G(I+1,Ky,L)-G(I-1,KY,L) 

DGK{I)-G(I,XY,L+1)-GK2(I,KY) 

V(l)»iSA^AO(I)-CA^Sa(I,K) 

a ( I )  »A1  ( I )  ♦OGI  ( I }  -t^CA^AO  ( I )  -t-SA^SO  ( I , K } 

W(I)»C1(K)^DGK(I)+SyAW+CA^XZ(K)+SA^YZ(K) 
230  G ( I , KY+ 1 , L) -G ( I , KY- 1,L)+(V(I)^(1.-H(I) ♦BZ ( I ) ♦HZ ( I ) ) -U ( I ) ♦FXY ( I ) -W 
1  (I)^HZ(I))/(FYY(1)^B1(KY)) 

I«IO 

IF  (lO.NS.ITEKK)  )  GO  TO  240 

E>G(I3,KY,L)-G(I0,KY,L} 

N0»N0-t-1 

E0(N0}-E0(N0)-»-P3^(E-B0(I30}  } 

NaNO 
240  IF  (I.LE.I1)  GO  TO  280 

I-I-1 

E>0. 

IF  (IV(I,K) .NE.1)  GO  TO  270 

ZZ-Z ( K ) -TYAW^ ( XC ( K ) +S 1 ♦AO ( I ) ♦AO ( I ) ) 
250  IF  (ZZ.GE.Z0(M-1})  GO  TO  260 

NaN-1 

GO  TO  250 
260  RV*(ZZ-Z0(N-1})/(Z0(N)-Z0(N-1)) 

E»RV^E0(N)+(1.-RV)+E0(N-1) 
270  M«NX-f2-I 

G(I,KY+1,1.)»G(M,KY-1,L)-E 

G(M,1CY+1,L)»G(I,KY-1,L)+E 

GK2(M,KY)»GK1 (M,KY) 

GK1(M,KY)>G(M,KY,Ij} 

G(M,KY,L)*G(I,KY,L}-t-E 

GO  TO  240 
280  CONTINUE 

00  290  1*2, NX 
290  G(I,J1-1,L)-(1 

DO  300  J»1,MY 

G(I1-1,J,L)«(1. 
300  G(I2+1,J,L)a(1 

RETURN 

END 


-BETY/BSCAL1 )^G(I, J1 ,L) 

■BETX/BSCAL ) ♦G ( I 1 , J , L) 
-BETX/BSCAL ) ♦G ( 12 , J , L) 


SUBROUTINE  COORD  (NX,NY,NZ ,XTEO ,ZTIP,XMAX,ZMAX,SY, SCAL , SCALZ , AX, AY 

1  , AZ , AO , A1 , A2 , A3 , BO , B 1 , B2 , B3 , Z , C1 , C2 , C3 , ISRC , JSRC , KSRC , YSHRNX 

2  .ZSBRNK) 

SETS  UP  STRETCHED  PARABOLIC  AND  SPANWISE  COORDINATES 
DIMENSION  AOd),  A1(  1)  ,  A2(1),  A3  (  1  }  ,  BO  (  1)  ,  B1(  1}  ,  B2(1),  B3(1}, 
1  Z(1),  C1(1),  C2(1),  C3(1),  YSHRNK(IO),  ZSHRNK(IO) 
COMMON  /DIM/  RX,  RY,  RZ ,  FDIM 
RX»64./84. 
RY-5./6. 
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RZ-6./7. 

KY-NY+I 
DZ>2«RX/NX 
DY«Ry/NY 
Kyi»NYl+1 
OZ'RZ/NZ 
Z0>0. 
K1-3 
K2»NZ-i-2 
XMAX«.625 
ZMAX»8./14. 
SY-.5 

SCAL-XTEO/( .50001*ZMAX*ZMAZ) 
SCALZsZTIP/( 1 . 000001*ZMAZ) 
V2»(DX/DY)»»2 
W1-SCAL/SCALZ 
W2«(W1»DX/DZ)»»2 
MZ«NZ-f  1 
C  READ  IN  GRID  SQBEZING  DATA  ONLY  XT   TBB  NACELLE  HAS  BEEN  LOCATED 
17  (KSRC.GT.O)  THEN 
READ  ( 5 1 , • }  SHRY , SHRZ 
READ  (51,*)  NJ,NK 
REWIND  (51) 
ELSE 
NJ>0 
NK>0 
ENDIF 

JA-NY+1-JSRC-NJ 
JB-NY+1-JSRC+NJ 
KA>KSRC-NK-3 
KB-KSRC+NK-3 
WRITE  (6,40) 
WRITE  (6,50)  SHRY, SHRZ 
WRITE  (6,60) 

WRITE  (6,70)  NY+1-JA,NY+1-JA-(JB-JA)/2,NY+1-JB 
WRITE  (6,80) 

WRITE  (6,70)  3-*-KA,3-«-KA-t-(KB-KA)/2,3-t-KB 
YM1»JA*DY 
Y1»JA*DY 
Y0».5»(Y1+YM1) 

DYO- ( SHRY- 1 . ) ♦ . 5/SQRT ( 1 -Y0»»2 ) •♦3 
CALL  SHRNCMP  ( JA, JB,DY, YSHRNK,DYO ) 
DZ0>SHP.Z-1  . 

CALL  SHRNCMP  (KA,KB ,DZ ,ZSHRNK,DZO ) 
DD—RX-DX 
DO  10  I>1,MX 
DD«DD>DX 

IF  (ABS(OO) .LE.XMAX)  THEN 
D0«OD 
D1-1. 
D2«0. 
ELSE 

IF  (DD.LT.O. )  THEN 
B—1. 
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ELSE 

B>1 

EK0I7 

A«1.-( (D0-B*XMAZ)/(1.-ZMAZ}}«*2 

C>SQRT(A) 

O0*B*XMAZ-i- ( DD-B*XMAZ ) /C 

01»A«C 

02»-(DD-B*XMAZ)*3./(A*( 1 .-ZMAZ)**2) 

END  IF 

AO(I}»DO 

A1(I)».5*D1/DX 

A2(I)»D1»D1 

A3(I)a.5*DZ*02 
10  CONTINUE 

DDaRY 

DO  20  J-2,Ky 

DDaDD-DY 

A»1.-DD»DD 

C«SQRT(A} 

17  (ABS(DO-YSHIUnC(3)}.GB.ySHRNK(4} )  THEN 

D1>2.*A*C 

B0( J)>.5*DD/C 

B1( J)».5»D1/DY 

B2(J)>D1*D1*V2 

B3 ( J ) ■- 1 . 5*DD*DY/A 

ELSE 

CALL  SHRINK  ( YSHRNK,DD,DO ,01 ,02) 

01«1./(D1+.5/{A»C)) 

D2—D 1  ♦  ( 02+ 1 .  5*DD/  ( A*A*C )  ) 

B0(J)»D0+.5»DD/C 

B1(J)«.5»D1/DY 

B2(J)»V2»D1»D1 

B3(J)».5*OY*02 

END  IF 
20  CONTINUE 

00«-DZ-OZ-ZO 

DO  30  K>2,K2 

DD>DD-fOZ 

IF  (ABS(OD) .LE.ZMAZ)  THEN 

IF  (ABS(DD-ZSHRNK(3) } .GE.ZSHRNK(4} )  THEN 

DO'DO 

01-1. 

O2»0. 

ELSE 

CALL  SHRINK  ( ZSHRNK,DO,O0 ,01 ,02 } 

O0*O0-«-DO 
J)1»1./(1.+01) 

02—Ol»D2 

END  IF 

ELSE 

A»1.-( (D0-B«ZMAZ)/(1.-ZMAX} ) ••2 

C-SQRT(A) 

DOaZMAZ-f  (DD-ZMAX}/C 

D1-A*C 
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D2— (D0-B«ZMAZ)*3./(A*(1-ZMAZ)**2} 

END  IF 

Z(K}«SCALZ*DO 
C1(K)».5*D1*W1/DZ 
C2(1C)»D1»D1*W2 
C3(K}>.5«OZ*02 
30  CONTINUE 
RETURN 

40  FORMAT  (1H15(/1H0)) 

50  FORMAT  ( 1H0 , 7X, 33HSQUEEZING  OF  THE  GRID  NEAR  SOURCE/ 1 HO ,7X,7HSHRY 

1  -,F10.5,4X,7HSHRZ   -,F10.5) 
60  FORMAT  ( 1H0 , 7X, 53HINDICES  OF  ENDPOINTS  &  MIDPOINT  OF  SQUEEZED  Y  SB 

1GMENT) 
70  FORMAT  ( 1H0 , 35X,3I3 ) 
80  FORMAT  ( 1H0 ,7X,53HINDICES  OF  ENDPOINTS  &  MIDPOINT  OF  SQUEEZED  Z  SE 

IGMENT) 
END 


SUBROUTINE  SHRINK  ( SHRNX,DD,DO ,D1 ,D2 ) 

COMPUTE  GRID  SQUEEZING  FUNCTION 

DIMENSION  SHRNKdO) 

Xa(DD-SHRNX(3} )/SHRNK(4} 

T»1.-X»X 

DO»SHRNK( 5 ) *X*T»T»T 

D1«SHRNK(5)»T»T»( 1 .-7.*X»X)/SHRNK(4) 

D2>-SHRNK(5)*T*(ie.-42.*X*X)/(SHRNK(4)*SHRNK(4) ) 

END 


SUBROUTINE  SHRNCMP  ( lA, IB,D,SHRNK,DFO } 

EVALUATE  GRID  SQUEEZING  FUNCTION 

DIMENSION  SHRNKdO) 

SHRNKd  }>IA*D 

SHRNK(2)«IB*D 

SHRNK(3)».5*(SHRNKd)-i-SHRNK(2}  ) 

SHRNK ( 4 ) -SHRNK ( 2 ) - SHRNK ( 3 ) 

SERNK ( 5 ) -DFO •SHRNK ( 4 ) 

END 


SUBROUTINE  INHOM 

COMPUTE  SOURCE  TERMS  FOR  NACELLE  MODEL 

COMMON  G( 200, 35,35 } ,  S0(200,35),  E0(202},  Z0(202},  IV(200.35), 

1  ITE1(35).  ITE2(35),  A0(200),  A1(200}.  A2(200),  A3(200},  B0(35), 

2  B1(35),  B2(35),  B3(35),  Z(35),  C1(35),  C2(35),  C3(35),  XC(35),  XZ 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  BTY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2, 

5  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE(200 ,35) ,  S0PRE(200 ,35 ) ,  NQSTA, 
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6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DS0R7(35),  RDQ,  RDSO,  FOO,  F01, 

8  F10,  F11,  NOQ,  IQ,  KQ,  AWING,  V0I.DR6,  IDRGPLT(  200 ,35 )  ,  SECDRG(35) 

9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC,  ZSOURCB,  YSOURCE,  ZSODRCB, 
$  STRENGTH 

COMMON  /FLO/  PI,  P2,  P3,  BETA,  FR,  IR,  JR,  KR,  OG,  IG,  JG,  KG,  NS , 
1  FSWEEP 
COMMON  /SWP/  DZYZ(200),  6K1(200,35),  GK2(200,35),  SZ(200),  SZ(200} 

1  ,  SXX(200},  SZZ(200},  SZZ(200),  R0(200},  R1(200),  C(200),  D(200), 

2  G10(35),  G20(35),  G30(35),  G40(35),  G1(35),  G2(35},  11,  12,  K,  L, 

3  NO,  LZ,  MZ,  KY,  MY,  T1 ,  AAO ,  Q1 ,  Q2,  TYAW,  SI,  BETZ,  BETY,  BETZ, 

4  BSCAL,  BSCAL1 

COMMON  /DIM/  RZ,  RY,  RZ ,  FDIM 
C      READ  IN  THE  DATA  FOR  THE  SOURCE  TERMS 
C      STRENGTH  IS  THE  ASYMPTOTIC  ENGINE  DIAMETER  IN  CHORD  UNITS 

READ  (50,150)  ZSOURCE,YSOURCE,ZSOURCE,STREJ)IGTH, WEIGHT 

REWIND  (50) 

DZ»2*RZ/NZ 

ZDIST>100 

00  10  K>1,NZ 

TEMP»ABS ( ZSOURCE-Z ( K ) ) 

IF  (TEMP.LT.ZDIST)  THEN 

K3RC*K 

^DIST-TEMP 

END  IF 
10  CONTINUE 

DIST-100 

ZMAZaO. 

ZMINal. 

DO  20  I>1,inE 
DO  20  J»1,NY+2 

ZTMP»ZC  ( KSRC )  *  .  5«SCAL*  ( AO  ( I )  ••2-  ( BO  ( J )  -i-SO  ( I ,  KSRC )  )  •«2 ) 
YTMP»YC ( KSRC ) +SCAL*AO ( I ) ♦ ( BO ( J ) +S0 ( I , KSRC ) ) 

IF  ((J.EQ.NY-i-2)  .AND.  (I.GE.ITEKKSRC)  )  .AND.  (I.LE.ITE2(KSRC)  }  )  THEN 
IF  (ZTNP.GT.ZMAZ)  ZMAZ-ZTMP 
IF  (ZTMP.LT.ZMIN)  ZMIN»ZTMP 
ENDIF 

ZDIST-ZSOURCE-ZTMP 
YDISTaYSOURCE-YTMP 
TEMP»SQRT(ZDIST»*2+YDIST»»2) 
IF  (TEMP.LT.DIST)  THEN 
ISRC-I 
JSRC-J 
DIST»TEMP 
ENDir 
20  CONTINUE 

ZSOURCE>ZC  ( KSRC )  +  .  5*SCAL*  ( AO  ( ISRC }  ••2-  ( BO  ( JSRC )  -t-SO  ( ISRC , KSRC )  )  •*2  ) 

YSOURCE»YC ( KSRC ) +SCAL»AO ( ISRC ) ♦ (BO ( JSRC ) +S0 ( ISRC , KSRC ) ) 

ZSOURCE-Z ( KSRC ) 

IF  ( YSOURCE . GT . 0 . )  THEN 

ISECSOUR-ISRC+1 

ELSE 

ISECSOUR-ISRC- 1 

ENDIF 
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X1».5*SCAL»(A0(ISRC-1)»»2-(BO(JSRC+1)+SO(ISRC-1,KSRC))**2) 

Y1 -SCAL^AO ( ISRC- 1 ) ♦ (BO ( JSRC+ 1 ) +S0 ( ISRC- 1 , KSRC ) ) 

X2»  .  5»SCAI.»  ( AO  ( ISRC- 1 )  ♦♦2-  (BO  ( JSRC- 1 )  +S0  ( ISRC- 1  ,KSRC )  )  •♦2 ) 

y2»SCAL»A0 ( ISRC- 1 ) ♦ ( BO ( JSRC- 1 ) +S0 ( ISRC- 1 ,KSRC ) ) 

X3«.5»SCAL»{A0(ISRC+1)*»2-(B0(JSRC-1)+S0(ISRC+1,KSRC) )»»2) 

y3»SCAL»A0 ( ISRC+1 > • (BO (JSRC- 1 ) +80 ( ISRC+1 ,KSRC) ) 

X4- . 5*SCAL» ( AO ( ISRC+ 1 ) ♦♦2- ( BO ( JSRC+ 1 ) +S0 ( ISRC+ 1 ,KSRC ) ) ♦♦2 ) 

y4»SCAL»A0 ( ISRC+1 )♦ (BO (JSRC+1)+S0( ISRC+1, KSRC)) 

AT-SQRT( (Xl-X2)*»2+(Y1-y2)»«2) 

BT3SQRT( (X2-X3 ) ♦♦2+ ( Y2-Y3 ) ♦♦2) 

CT»SQRT( (X3-X4)**2+(Y3-Y4)**2) 

DT-SQRT( (X4-X1 )»*2+(Y4-Yl )»»2) 

ET*SQRT((X3-X1)**2+(Y3-Y1)»»2) 

AT»SQRT ( AT*AT- ( ( AT»AT+ET»ET-BT»BT ) ♦ . 5/ET ) ♦♦2 ) 

CT»SQRT  ( CT»CT-  (  ( CT»CT+ET»ET-DT»L>'i^ )  •  .  5/ET )  •♦2  ) 

V0L-.5»ET*(AT+CT)»(Z(KSRC+1)-Z(KSRC-1)) 

FINH1"( ( STRENGTH* (XMAX-XMIS) )**2) 

FINH1 ■ ( 4 . ♦ATAN( 1.0)) •SCAL»27 . •FINHl 

FINH1«FINH1/(8.»V0L*FMACH»FMACH) 

FINH2-FINH1 

FINH1«FINH1»(A0(ISRC)»»2+(B0(JSRC)+S0(ISRC,KSRC) )»»2) 

FINH2»FINH2» ( AO ( ISECSCUR) ♦♦2+ (BO ( JSRC) +S0 ( ISECSOUR.XSRC) ) ♦♦2 ) 

FINHl ■DX»DX»WEIGHT»FINH1 

FINH2»DX*DX»( 1 -WEIGHT )»FINH2 

WRITE  (60,150)  XSOURCE,YSOORCE,ZSOnRCE, STRENGTH, WEIGHT 

END  FILE  60 

REWIND  60 

WRITE  (6,30) 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


(6,40) 

(6,50) 

(6,60) 

(6,70) 

(6,80) 

(6,90) 

(6,100) 

(6,110) 

(6,120) 

(6,130) 
IF  ( WEIGHT. NE. 
WRITE  (6,140) 

WRITE  (6,90)  XC(KSRC)+.5*SCAL»(A0(ISECSODR)»«2-(B0(JSRC)+S0 
1  (ISECSOaR,KSRC) )**2) 
WRITE  (6,100)  yC(KSRC)+SCAL»A0(ISECSOaR)*(B0(JSRC)+S0(ISECSOaR 
1  ,KSRC)) 
WRITE  (6,110) 
WRITE  (6,120) 
WRITE  (6,130) 
END  IF 


XMAX-XMIN 

STRENGTH* ( XMAX-XMIN ) 
STRENGTH 

XSOORCE 
YSCURCE 
ZSOURCE 
ISRC, JSRC, KSRC 
WEIGHT 
1 . )  THEN 


ZSOURCE 

ISECSOUR, JSRC, KSRC 

1 -WEIGHT 


30  FORMAT  ( 1H1/////1H0 ,26X, 12HNACELLE  DATA) 

40  FORMAT  (IHO.I IX, 'CHORD  IN  SPAN  STATION') 

50  FORMAT  ( 1 HO, 11 X, 'WHICH  CONTAINS  SOURCE  TERMS- ' , F6 . 4 ) 

60  FORMAT  (1H0,1 IX, 'NACELLE  DIAMETER- ', F6 . 4 ) 

'70  FORMAT  ( 1H0 , 1 IX, 'NACELLE  DIAMETER  IN  CHORD  UNITS- ' ,?6 . 4 ) 


80 

FORMAT 

90 

FORMAT 

100 

FORMAT 

110 

FORMAT 

120 

FORMAT 

130 

FORMAT 

140 

FORMAT 

150 

FORMAT 

END 
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(IHO.I IX, 'FIRST  SOURCE') 
(1H0,16X,'X  COORDINATE- ', F6 . 4 ) 
(1H0,16X,'Y  COORDINATE- ',F6. 4) 
(1H0,16X,'Z  COORDINATE- ', F6 . 4 ) 
( 1H0 , 1 6X , ' INDICES- ' , 314 ) 
( 1H0 , 1 6X , 'WEIGHT- ' , F6 . 4 ) 
(IHO.I IX, 'SECOND  SOURCE') 
(5F10.7) 


SUBROUTINE  DRAGC  (IND,SCALX) 

COMPUTES  THE  WAVE  DRAG  BY  VOLUME  INTEGRATION  OF  ENTROPY  INEQUALITY 

COMMON  G(200, 35,35) ,  S0(200,35),  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200},  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  Z(35),  C1(35).  C2(35),  C3(35),  XC(35),  ZZ 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2 , 

5  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 ,35) ,  SOPRE( 200 ,35 ) ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35},  QQ3(35 

7  ),  QQ4(35).  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 

8  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 200 ,35 ) ,  SECDRG(35} 

9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC 

COMMON  /FLO/  PI,  P2,  P3,  BETA,  FR,  IR,  JR,  KR,  DG,  IG,  JG,  KG,  NS , 
1  FSWEEP 
COMMON  /SWP/  DXYZ(200),  GK1(200,35),  GK2(200,35),  SX(200),  SZ(200) 

1  ,  SXX(200),  SXZ(200),  SZZ(200),  R0(200},  R1(200),  C(200),  D(200), 

2  G10(35),  G20(35),  G30(35),  G40(35),  G1(35),  G2(35),  II,  12,  K,  L, 

3  NO,  LX,  MX,  KY,  MY,  T1 ,  AAO ,  Q1 ,  Q2,  TYAW,  SI,  BETX,  BETY,  BETZ , 

4  BSCAL,  BSCAL1 

DIMENSION  XXX (34) ,  YYY(34),  DRAG(34),  ITSTPLT( 200 , 35) 
COMMON  /DIM/  RX,  RY,  RZ ,  FDIM 
CSTAR-AAO/1.2 

IF  (SCALX.EQ.O.O)  SCALX-5 ./(Z(KTE2)-Z(KTE1 ) ) 
TTTX«3. 

SSSX>-SCALX*XC(KTE1 ) 
DX*2.*RX/NX 
TSTDRGrO.O 
TSTDUMaO.O 
TSTSECaO. 0 
VOLDRG»0.0 
DZ0>RZ/NZ 
DELTAZ>RZ/NZ 

DV0L«2 . *RX*RY*RZ/ ( NX*NY«NZ } 
DO  10  K«KTE1 ,KTE2 
10  SECDRG(K}-0. 
FACZ* . 5 
LX»NX/2+1 
PI-3. 1415927 
RAD-PI/180. 
ANG>-5.«RAD 
NDARK>40 
SCUT-. 02 
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INOPLT-0 

SZ0*200.*(FLOAT(NX)/]56. )**2 
DO  60  K»KTE1,KTS2 
IF  (K.EQ.KTE1+1)  FACZ-1.0 
INDPLT-INDPLT+ 1 
00  20  J>2,Ky 
XXX(J)>0. 
YYY(J)»0. 
20  ORA6(J)>0. 

SSSY»5.»(Z(K)-Z(KTE1))/(Z(KTE2)-Z(KTE1))+2.45 

KP-K+1 

KM-K-1 

I1«ITE1(K) 

I2>ITE2(K) 

DO  40  I«I1,I2 

IDRGPLT(I,K)  —  1 

ITSTPLT(I,K)  —  1 

SX(I)«A1(I)»(S0(1+1,1C)-S0(I-1,K)) 

SZ(I)»C1(K)»(S0(I.KP)-S0(I,1CM)) 

FACY- 1 . 

DO  30  J>2,KT 

IF  (J.EQ.KY)  FACY».5 

yP»SO(I,K)+BO(J) 

FH-AO ( I ) •AO ( I ) +YP*YP 

H-1./FH 

AZ«-AO(I)*XZ(K)-YP»YZ(K) 

BZ—AO  ( 1 )  ♦YZ  ( K )  +YP»XZ  ( K ) 

DGI»G(I+1,J,K)-Gtl-1,J,K) 

DGJ»G(I,J+1,K)-G(I,J-1,K) 

DGK»G(I,J,KP)-G(1,J,KM) 

GZ>A1(I)«0GI 

GY—B1(J)»DGJ 

U-GX-SX ( I ) ♦GY+CA»AO ( I ) +SA*YP 

V»GY+SA»AO ( I ) -CA»YP 

W» ( CI ( K ) •DGK-SZ ( I ) ♦GY+SYAW+CA»XZ ( K) +SA»YZ ( K ) +H» ( U»AZ+V*BZ ) ) 

AU>U->-W*AZ 

QXY«H*(U»0+V»V) 

QQ»QXY-^W*W 

AA-OIM(AA0, .2*QQ) 

DUMMaO. 

IF  (QQ.GE.AA)  THEN 

AB»-T1»A1(I)»B1(J) 

AC»T1»A1(I)»C1(K) 

YP»S0(I,K)+B0(J) 

A- 1 . -RO ( I ) +A0 ( I ) ♦AO ( I ) +YP»YP 

H*RO(I)/A 

FE*RO ( I ) *A 

P»AO ( I ) ♦ ( 4 . ♦YP»YP-FH ) 

Q»YP» ( 4 . ♦AO ( I ) ♦AO ( I ) -FH ) 

A>XZ(K}^XZ(K}-YZ(K)^YZ(K) 

B«(XZ(K)-«-XZ(K)  )^YZ(K) 

AZ»-AO(l)^XZ(K)-YP^yZ(K) 

BZ—AO  ( I )  ♦YZ  ( K )  ■•■  YP^XZ  ( K ) 

CZ>H^H^ ( P^A-Q^B ) -AO ( I ) ♦XZZ ( K ) -YP^YZZ ( K) 
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DZ-H»H»(Q*A+P»B)-AO(I)»yZZ(K)+yP»XZZ(K) 

DGI-G(I+1,J,K)-G(I-1,J,1C) 

DGJ«G(I,J+1,K)-G(I,J-1,K) 

DGK»G(I, J,K+1)-G(I,J,K-1) 

DGII-G(1+1,J,K)-G(I,J,1C)-G(I,J,K)+G(I-1,J,K) 

DGJJ-G(I,J+1,K)-G(I,J,K)-G(I,J,K)+G(I,J-1,K) 

DGiaC»G(l,J,K+1)-G(l,J,lC)-G(l,J,K)+G{I,J,K-1) 

DGIJ»G(I+1,J+1,K)-G(I-1,J+1,1C)-G(I+1,J-1,K)+G(1-1,J-1,K) 

DGIK»G(I+1,J,K+1)-G(I+1,J,K-1)-G(I-1,J,K+1)+G{I-1,J,K-1) 

DGJK»G(I,J+1,K+1)-G(I,J-1,1C+1)-G(I,J+1,K-1)+G(I,J-1,1C-1) 

GZ*A1(I)*DGI 

GY—B1(J)»DGJ 

U»GX-SX( I ) •GY+CA»AO ( I ) +SA»yP 

V»GY+SA»AO ( I ) -CA»YP 

W>  ( CI  ( K }  «DGK-SZ  ( I }  *Gy-i-SyAW-i-CA*ZZ  ( K )  ■t-SA*yZ  ( K } -t-H*  ( a*AZ-t-V*BZ }  ) 

An>a-^w*Az 

AV»V+W»BZ 

Qxy»H*(u»a+v»v)  . 

QQ>QXy>W*W 

AA-DIM ( AAO , . 2 *QQ ) 

HZ>AZ*SX  ( I } -BZ-t-FH*SZ  ( I } 

BV>AV-AU*SZ ( I ) -FH»W*SZ ( I ) 

UnBH*AU*AU 

W»H»BV*BV 

WW»FH*W*W 

nv-H*Aa*Bv 
uwaAa*w 

VW»BV»W 
S»SIGN(1. ,U) ^ 
IM»I-IFIX(S) 
IMM»IM-iriX(S) 

Axxaan«A2(i) 

AyY«W»B2(J) 
AZZsWW*C2(K) 
AXy>8.*S*UV*AB 

AXZ>8 . •s*aw*AC 

AyZ>8.*VW*BC 

AQ>AA/Qa 

DGIlRsG(I,J,K)-G(IM,J,K)-G(IM,J,K)-«-G(IMM,J,K} 

DGJJR»G(I,J,K)-G(I,J-1,K)-G(I,J-1,K)+G(I,J-2,K) 

DGKKR-G(I,J,K)-G(I,J,K-1)-G(I,J,K-1)+G(I,J,K-2) 

DGIJR»G(I,J,K)-G(IM,J,K)-G(I,J-1,K)+G(IM,J-1,K) 

DGIKR=G(1,J,K)-G(I,J,K-1)-G(IM,J,K)+G(IM,J,K-1) 

DGJKR»G(I,J,K)-G(I,J,K-1)-G(I,J-1,K)+G(I,J-1,K-1) 

AQ»AA/QQ 

X JACLD-SCALZ*  (  ( 1 .  •I-4 .  •BO  ( J )  •BO  ( J )  }  ••  1 .  5  )  •DVOL/SCAL 

XJACO-1 .•( ( 1 .♦4.^B0( J)^BO( J) )^^1 .5)^DV0L/(2»DELTAZ»C1 (K) ) 

DRGSS»(G(I+1,J,K)-2.^G(I,J,K)+G(I-1,J,K))/(DX^DX) 

ORGSS* . 5^ ( ORGSS-ABS (DRGSS } ) 

ROCS>FMACH«FMACH^ ( FMACH*FMACH^AA ) •• 1 . 5 

DnMM>2 . «DX*SCAL»SCAL^ ( 1 . -AQ ) •ROCS*AXX^DRGSS^ORGSS*SQRT ( H } •XJACO 
1  /AWING 

TSTDUM»AXX» ( DGII-DGIIR ) +AYY^ ( DGJJ-DGJJR ) >AZZ* ( DGKK-DGKKR ) +AXy» 
1  (  DGIJ-DGIJR )  -t-AXZ^  (  DGIK-OGIKR  }  -fAYZ^  (  DGKJ-DG  JKH } 
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IF  ( (ABS(K-KSRC) .LE.4) . AND. (ABS( J-JSRC) .LE.4).AND. (ABS( I-ISRC-2) 
1  . LE . 1 0 ) )  THEN 

OUMMaO. 

TSTDUM»0.0 

ENOir 

TSTDUM- ( CA-CSTAR+H* ( AO ( I ) ♦Al ( I ) •DQ1+ ( YP+AO ( I ) ♦SXt I ) ) #31 ( J ) •DGJ ) ) 
1  •TSTDUM 

TSTDUM-TSTDUM»R0CS»(AQ-1 )/(A1 (I)»B1 ( J)»C1 (K) ) 

TSTDOM«TSTDUM»0 . 25*SCAL»SCAL/(DX»DX»AWING) 

IF  ( TSTDUM. LT. 0.0)  TSTDUM-O.O 

TSTSEC»TSTSEC+TSTDUM»FACY»AWING»2*C1(K)/SCAL 

TSTDRG»TSTDRG+FACZ»FACY»TSTDUM 

SECOND  ORDER  ACCXHIATE  VOLUME  INTEGRAL 

VOLORG«VOLDRG+FACY»FACZ*DUMM 

IF  (SECDRG(K) .EQ.O.O)  WRITE  (6,*)  AWING, CI (K) .SCALZ ,DZ ,DELTAZ ,DZO 

SECDRG(K)»SECDRG(K)+FACY»AWING»DUMM»2*C1(K)/SCAL 

IF  (J.EQ.KY)  IDRGPLT(I,K)«2000000.»DUMM 

IF  (J.EQ.KY)  ITSTPLT(I,K)»10000000. ♦TSTDUM 

ENDIF 
30  CONTINUE 
40  CONTINUE 

IF  ( IHD . EQ . 1 )  THEN 

WRITE  (6,70)  TSTSEC,SECDRG(K),Z(K) 

TSTSECaO.O 

IF  (K.EQ.KTE2)  THEN 

DO  50  I>LX,ITE2(3) 
50  WRITE  (6,90)  (ITSTPLT(I ,iac) ,KK»KTE1 ,KTE2) 

ENDIF 

ENDIF 
60  CONTINUE 

WRITE  (6,80)  TSTDRG,VOLDRG 

RETURN 
70  FORMAT  ( 'TEST' ,F10 . 6, 'OLD' ,F10 . 6, 'SEC' ,F10 . 6) 
80  FORMAT  ( 'TESTVOL' ,F10 . 6, 'OLDVOL' ,F10 . 6 ) 
90  FORMAT  (2015) 

END 


SUBROUTINE  WNGPRNT 

PRINT  UPPER  WING  SURFACE  COORDINATES 

COMMON  G( 200, 35,35 ) ,  S0(200,35),  E0(202),  Z0(202:,  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  Z(35),  C1(35),  C2(35),  C3(35},  XC(35),  XZ 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2 , 

5  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 ,35 ) ,  SOPRE( 200 , 35) ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 

8  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT(200 ,35) ,  SECDRG(35) 

9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC 

COMMON  /FLO/  PI,  P2,  P3,  BETA,  FR,  IR,  JR,  KR,  DG,  IG,  J6,  KG,  NS, 
1  FSWEEP 
COMMON  /SWP/  DXYZ(200),  GK1 (200,35),  GK2(200,35),  SX(200),  SZ(200) 
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1  ,  SZZ(200},  SZZ(200),  SZZ(200},  R0(200),  R1(200),  C(200)»  D(200), 

2  G10(35),  G20(35),  G30(35),  G40(35),  G1(35),  G2(35),  II,  12,  K,  L, 

3  NO,  LX,  MX,  KY,  MY,  T1 ,  AAO ,  Q1 ,  Q2,  TYAW,  SI,  BETX,  BETY,  BETZ, 

4  BSCAL,  BSCAL1 
CHARACTER*?  TMPARR(18) 
LX«INT(NX/2)+1 

WRITE  (6,50) 

WRITE  (6,70) 

TMPARR(1)»'Z-' 

DO  10  K»KTE1,KTE1+5 

ENCODE  (7,90,TMPARR(2*(K-(-1-KTE1))  }  Z(K) 
10  TMPARR(3+2»(K-KTE1))«'  ' 

WRITE  (6,60)  TMPARR 

DO  20  K»KTE1,KTE1+5 

TMPARR(1+2*(K-KTE1) )»'X' 
20  TMPARR(2+2»(K-KTE1) )"'Y' 

WRITE  (6,70) 

WRITE  (6,80)  TMPARR 

DO  40  I*LX-i-3,NX 

DO  30  KoKTE1,KTE1+5 

ZX*ZC  (K )  •»- .  5*SCAL*  ( AO  ( I )  **2-S0  ( I  ,K)  **2 ) 

YY»YC(K)+SCAL»AO(I)»SO(I,K) 

XT    (I.GT.ITE2(K) )  THEN 

TMPARR(1+2*(K-KTE1) )■'  ' 

TMPARR(2  +  2»(K-rvTE1)  )■'  ' 

ELSE 

IF  (XX.GE.O)  THEN 

ENCODE  (7,100,TMPARR(1+2»(K-KTE1)) )  XX 

ELSE 

ENCODE  (7,90,TMPARR(1+2*(K-KTE1) ))  XX 

ENDIF 

IF  (YY.GE.O)  THEN 

ENCODE  (7,100,TMPARR(2+2»(K-KTE1) ) )  YY 

ELSE 

ENCODE  (7,90,TMPARR(2+2*(K-KTE1) ))  YY 

ENDIF 

ENDIF 
30  CONTINUE 
40  WRITE  (6,80)  TKPARR 

50  FORMAT  (1H1////lH0,49X,30HaPPER  WING  SURFACE  COORDINATES) 

60  FORMAT  ( 1H  ,1X,126A) 

70  FORMAT  ( 1H  ) 

80  FORMAT  ( 1H  ,4X,126A) 

90  FORMAT  (F6.4,'  ') 

100  FORMAT  ('  ',F5.4,'  ') 
END 


SUBROUTINE  TWRIT 

STORES  THE  POTENTIAL  AT  COMPLETION  OF  LINE  SEARCH 
COMMON  6(200,35,35) ,  S0(200,35),  E0(202),  Z0(202),  IV(200,35), 
1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 
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2  B1(35),  B2(35),  B3(35),  ZC35),  C1(35),  C2(35),  C3(35),  XC(35),  XZ 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2 , 

5  N3,  10,  NDES,  TSTEP,  EPS1 ,  QPRE( 200 ,35) ,  S0PRE(200,35) ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  POO,  F01, 

8  P10,  F11,  NOQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT(200,35) ,  SECORG(35) 

9  ,  FINH1,  FINa2,  ISRC,  JSRC,  KSRC 
NT-8 

REWIND  m 
NM>0 
HIT-0 
K1-KTE1-1 

K2»KTE2+ITE2 (KTE2 ) -NX/2 
WRITE  (NT)  NX,NY,NZ,NM,K1,K2,NIT 
MX-NX+1 
MY-NY+2 
MZ>NZ-t-3 
00  10  K*1,MZ 

WRITE  (NT)  ((G(I,J,K),I-1,MX),J-1,MY) 
10  CONTINUE 

WRITE  (NT)  (E0(K),K»K1,X2) 

WRITE  (NT)  ((S0(I,K),I»1,MX),K-1,MZ) 

REWIND  NT 

PRINT  20 

RETURN 

20  FORMAT  (1X,15H  WRITE  ON  TAPES) 
END 


SUBROUTINE  VA10A  (FUNCT, N,X,F,G,H,W,DFN,XM,HH, EPS .MODE, MAXFN 
1  ,IPRINT,IEXIT) 
C      OPTIMIZATION  SUBROUTINE 
C      PERFORMS  LINE  SEARCH  FOR  DRAG  MINIMUM 

REAL  X(1),  G(1),  H(1),  W(1),  XM(1) 

IF  (IPRINT.NE.O)  PRINT  190 

IF  (IPRINT.NE.O)  PRINT  200,  DFN,HH, (XM(I ) ,1-1 ,N) 

NN>N*  ( N-f  1 } /2 

IGoN 

IGG«N-i-N 

IS>IGG 

IDIFF-1 

IEXIT>0 

IR-H 

IF  (M0DE.EQ.3)  GO  TO  40 

IF  (M0DE.EQ.2)  GO  TO  30 

IJ-NN+1 

DO  20  Ia1,N 

DO  10  J- 1,1 

IJ-IJ-1 
10  H(IJ)«0. 
20  H(IJ)«1. 
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GO  TO  40 
30  CONTINUE 

CALL  MC11B  (H.N.IR) 

IF  (IR.LT.N)  RETURN 
40  CONTINUE 

Z>F 

ITN-0 

CALL  FUNCT  (N,Z,F) 

CALL  TVraiT 

IFH-1 

OFaDFN 

IF  (DFN.EQ.O.)  DF>F-Z 

IF  (DFN.LT.O.)  DF«ABS(OF*F} 

IF  (DF.LE.O.)  DF-1. 
50  CONTINUE 

GO  TO  170 
60  CONTINUE 

IF  (IFN.GE.MAZFN)  GO  TO  130 

IF  (IPRINT.EQ.O)  GO  TO  70 

IF  (MODdTN.IPRINT)  .NE.O)  GO  TO  70 

PRINT  210,  ITN.IFN 

PRINT  220,  F 

IF  (IPRINT.LT.O)  GO  TO  70 

PRINT  220,  (X(I),I*1,N) 

PRINT  220,  (W(IG-«-I},I>1,N} 
70  CONTINUE 

ITN»ITN+1 

DO  80  I>1,N 
80  W(I)—W(IG+I) 

CALL  MC11E  (H,N,W,G,IR) 

ZaO. 

GSO>0. 

DO  90  I-1,N 

W(IS+I)»W(I) 

IF  (Z«XM(I} .GE.ABS(W(I})}  GO  TO  90 

Z>ABS(W(I} )/XM(I) 
90  GS0-GS0-t-W(IG-M)«W(I) 

IEXIT»2 

IF  (GSO.GE.O.)  GO  TO  140 

ALPHA*-2 . •DF/GSO 

PRINT  230,  ALPHA 

IF  (ALPHA.GT.1. )  ALPHA-1. 

DSTBP0>.03/SQRT(ABS(6S0} ) 

JMIN-1 

FDMIN*P 

DO  110  JD-2,5 

DSTEP-FLOAT ( JD- 1 ) ♦DSTEPO 

DO  100  1*1, N 
100  W(I)»X(I)+DSTEP»W(IS+I) 

CALL  FUNCT  {N,W,F1) 

IF  (F1.GE.FDMIN)  GO  TO  110 

FDMIN-F1 

JMIN-JD 
110  CONTINUE 
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DSTEP-FIiOAT  ( JMIH- 1 )  •DSTEPO 

DO  120  I»1,H 
120  W(I)»X(I)+DSTEP*W(IS+I) 

CALL  rUNCT  (II,W,K1) 

GO  TO  170 
130  CONTINUE 

IEX1T»3 

60  TO  150 
140  CONTINUE 

IF  (IDIFy.EQ.2)  GO  TO  150 

IDIFF-2 

GO  TO  50 
150  CONTINUE 

DO  160  I»1,N 
160  G(I)»W(IG+I) 

IF  (IPRINT.EQ.O)  RETURN 

PRINT  210,  ITN.IFN.IEXIT 

PRINT  220,  F 

PRINT  220,  (X(I),I-1,N) 

PRINT  220,  (G(I),I-1,N) 

RETURN 
170  CONTINUE 

IF  (ITN.GE.1)  RETURN 

CALL  FUNCT  (N,X,F) 

IFN«IFN+1 

CALL  TWRIT 

00  180  1*1, N 

Z»HH*XM(I) 

ZZ-X(I) 

X(I)-ZZ+Z 

CALL  FUNCT  (N,X,F1) 

W(IG+I)-(F1-F)/Z 
180  X(I}>ZZ 

IFN-IFN+N 

GO  TO  60 
190  FORMAT  (15H1ENTRy  TO  VA10A,/) 

200  FORMAT  ( 6H  DFN  -,F10.5,5H  HH  -,F10.5,/,8H  XM(I)  ■,(F10.5)) 
210  FORMAT  (2115) 
220  FORMAT  ( (8E15.7) ) 
230  FORMAT  (1X,7HALPHA  ■,F10.5) 

END 


SUBROUTINE  MCI  IB  (A,N,IR) 
C      OPTIMIZATION  SUBROUTINE 
C      FACTORIZE  A  MATRIX  GIVEN  IN 

DIMENSION  A(1 ) 

IR*N 

IF  (N.GT.1)  GO  TO  10 

IF  (ACD.GT.O.)  RETURN 

A(1)-0. 

IR-0 

RETURN 


-  123  - 


10  CONTINUE 

NP»N+1 

II-1 

DO  50  I>2,N 

AA«A(II) 

Nlall+NP-I 

IF  (AA.GT.O.)  GO  TO  20 

A(II)*0. 

IR-IR-1 

II»NI+1 

GO  TO  50 
20  CONTINUE 

IP»II+1 

II*NI+1 

JX»II 

DO  40  IJ>IP,NI 

V»A(IJ)/AA 

DC  30  IKalJ.NI 

A(JK)-A(JK)-A(IK)»V 
30  JK»JK+1 
40  A(IJ)-V 
50  CONTINUE 

IP  (A(II) .GT.O. )  RETURN 

A(II)-0. 

IR»IR-1 

RETURN 

END 


SUBROUTINE  MC11E  (A,N,Z,W,IR) 
C      OPTIMIZATION  SUBROUTINE 
C      MULTIPLY  A  VECTOR  Z  BY  THE  INVERSE  OF  THE  FACTORS  GIVEN  IN  A 

DIMENSION  A(1) ,  Z(1),  N(1) 

IF  (IR.LT.N)  RETURN 

W(1)-Z(1) 

IF  (N.GT. 1 )  GO  TO  10 

Z(1)«Z(1)/A(1) 

RETURN 
10  CONTINUE 

DO  30  1*2, N 

IJ-I 

I1»I-1 

V»Z ( I ) 

DO  20  J«1,I1 

V»V-A(IJ)»Z(J) 
20  IJ>IJ-t-N-J 

W(I)»V 
30  Z(I)«V 

Z(N)-Z(N)/A(IJ) 

NP-N+1 

DO  50  NIP>2,N 

I-NP-NIP 

II-IJ-NIP 

V-Z(I)/A(II) 
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IP-I+1 

IJ-II 

DO  40  J-IP,3 

40  V«V-A(II)»Z(J) 
50  Z(I)»V 

RETURN 

END 


SUBROUTINE  RE7IN  (ALFO) 

HALVES  MESH  SIZE 

COMMON  G(200,35,35),  S0(200,35),  E0(202),  Z0(202),  IV(200,35}, 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  Z(35),  C1(35),  C2(35),  C3{35),  XC(35),  XZ 

3  (35),  XZZ(35),  YC(35),  yz(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2, 

5  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 ,35 ) ,  SOPRE( 200 , 35} ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 

8  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT(200 ,35} ,  SECDRG(35} 

9  ,  FINH1,  7INH2,  ISRC,  JSRC,  KSRC 
DIMENSION  ALFOd} 

MX>NX-i-1 

ICY-NY+1 

MY»NY+2 

MZ-NZ-t-3 

MXO-NX/2+1 

MZ0»NZ/2+3 

X»2 

KK>K 

DO  60  K»KK,MZO 

J»Ny/2+1 

JJ-KY 
10  I»MXO 

II«MX 
20  G(II,JJ,K}*G(I,J,K} 

I-I-1 

II-II-2 

IF  d.GT.O}  GO  TO  20 

JaJ-l 

jj.jj-2 

IF  (J.GT.O}  GO  TO  10 

DO  30  J»1,KY,2 

DO  30  I>2,NX,2 
30  G(I,J,K)».5»(G(I+1,J,K}+G(I-1,J,K}} 

DO  50  I>1,MX 

DO  40  J-2,NY,2 
40  G(I,J,K}>.5*(G(I,j4-1,K}-»-G(I,J-1,K}} 
50  G(I,MY,K}-0. 
60  CONTINUE 

MZM-MZO 

MZSTaMZ 
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70  CONTINUE 

DO  80  J-I.MY 

DO  80  1*1, MX 
80  G(I,J,MZST)a6(I,J,MZM) 

IF  (MZST.EQ.D  GO  TO  100 

MZST»MZST-1 

DO  90  J»1,MY 

DO  90  I»1,MX 
90  G(I,J,MZST)>0.5*(6(I,J,MZM}-t-G(I,J,MZM-1)) 

MZM«MZM- 1 

MZST-MZST-1 

GO  TO  70 
100  CONTINUE 

TYAW- S YAW/CYAW 

S1>.5«SCAL 

N0»KTE1-1 

EO(NO)-0. 

K-2 

!ac»K+i 

00  180  K«KX,MZ 

N»NO 

I-MXO+1 

IF  (K.LT.KTE1.0R.K.GT.ICTE2)  GO  TO  130 

I1»ITE1(K) 

I2»ITE2(K) 

DO  110  1-11,12 

DSI=S0(I+1,K)-S0(I-1,K) 

DSK»S0(I,K+1)-S0(I,K-1) 

SZ>A1(I)«DSI  ^ 

SZ»C1(X)«DSK 

DGI»G(I+1,Ky,K)-G(I-1,KY,K) 

DGK»G(I,KY,K+1)-G(I,KY,K-1) 

R»AMIN0(1,IV(I,K)) 

A  *  1 .  0  -  R  •»■  A  0  ( I )  *  A  0  ( I ) -t- S  0  ( I ,  K )  •  S  0  ( I ,  K } 

H»R/A 

FH*R*A 

AZ«-AO(I)»XZ(K)-SO(I,K)»YZ{K) 

BZ>-AO(I)«YZ(K)-i-SO(I,K}*ZZ(X} 

BZ>AZ»SX-BZ-fFH*SZ 

FYYal . 0+SX*SX+H»HZ»HZ 

FXY>SX-t-H«AZ«HZ 

U>A1  ( I }  «DGI-(-CA*AO  ( I }  +SA«SO  ( I  ,K } 

W=C 1 ( K ) ♦DGX+SYAW+CA»XZ ( K ) +SA*YZ ( K ) 

V»SA»AO ( I ) -CA*SO ( I , K) 
110  G(I,KY+1,K)*G(I,KY-1,K)+(V»(1.0-H»BZ»HZ)-U»FXy-W»HZ)/(FYY»B1(KY) ) 

N0«N0-f1 

E0(N0)»G(I2,KY,K)-G(I1,KY,K) 

N-NO 

I-I1 

IF  (K.NE.KTE2.OR.YAW.LE.0. )  GO  TO  130 
120  I-I+1 

M3NX-t-2-I 

NO-NO  +  1 

EO(NO}-G(M,KY,K}-G(I,KY,K) 
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IF  (I.LT.MXO)  GO  TO  120 

I-I1 
130  I-I-1 

E>0. 

IF  (1V(I,K) .NE.1)  GO  TO  160 

ZZ*Z  ( K )  -TYAH*  ( XC  ( K  }  -f  S 1  *A0  (  I  )  aAO  ( I  )  ) 
140  IF  (ZZ.GE.ZO(II-I)  )  GO  TO  150 

II-N-1 

GO  TO  140 
150  R«(ZZ-Z0(N-1))/(Z0(N)-Z0(H-1)) 

E-R»E0(N)+(1.-R)»E0(H-1) 
160  N»NZ-»-2-I 

G(I,KY+1,K)»G(M,1CY-1,K)-E 

G(M,KY+1,K)»G(I,KY-1,K)+E 

IF  (IVd.K)  .NE.-1)  GO  TO  170 

G(I,KY,K)-.5*G(I,KY,K-1)  +  .25«(G(I,1CY,K+1)+G(M,KY,K+1)  ) 

IF  (IV(I,K+1).LT.1)  G{I,KY,K)».5»G(I,1CY,K+1)+.25»(G(I,KY,K-1)+G(M 
1  ,KY,K-1)) 

G(M,KY,K)-G(I,KY,K) 

G(I,KY-1,lC)».5»(G(I,KY,K)+G(I,rY-2,K)) 

G(M,KY-1,1C)«.5*(G(M,1CY,K)+G(M,KY-2,K)) 
170  IF  (I.GT.2)  GO  TO  130 
180  CONTINUE 

E0(N0-t-1)*0. 

1C2»KTE1  +  ( KTE2-KTE1 )  /2 

ALFO ( KTE2 ) >ALFO ( K2 ) 

K»K2-1 

iaC»KTE2-1 
190  ALF0(KX)>.5*(ALF0(K}-»-ALF0(K-t-1)) 

ALFO ( KK- 1 ) -ALFO ( K ) 

KJC"iaC-2 

K»K-1 

IF  (K.GE.KTE1)  GO  TO  190 

RETURN 

END 


SUBROUTINE  SPLIF  (M,N,S,F,FP,FPP,FPPP,KM, VM,KN, VN.MODE.FQM, IND) 
C      CUBIC  SPLINE  FIT  WITH  PRESCRIBED  END  CONDITIONS 
C      INTEGRAL  PLACED  IN  FPPP  IF  MODE  GREATER  THAN  0 
C      IND  SET  TO  ZERO  IF  DATA  ILLEGAL 

DIMENSION  S(1),  F(1),  FP(1),  FPP(1),  FPPP(I) 

IND«0 

X-IABS(N-M) 

IF  (K-1)  180,180,10 
10  K»(N-M)/K 

I*M 

J-M-»-K 

DS-S(J}-S(I} 

D»DS 

IF  (DS)  20,180,20 
20  DF»(F(J)-F(I) )/DS 

IF  (KM-2)  30,40,50 
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30  U-.5 

V»3.»(DK-VM)/DS 

GO  TO  80 
40  a«o. 

V»VM 

GO  TO  80 
50  U—1. 

V»-DS»VM 

GO  TO  80 
60  I*J 

J-J+K 

DS»S(J)-S(I) 

IT    (D»DS)  180,180,70 
70  DF»(F(J)-F(I) )/DS 

B»1./(DS+DS+a) 

n*B«os 

V«B*(6.»DF-V) 
80  FP(I)»U 
FPP(I)»V 

n*(2.-a)*os 

V»6.»DF+DS*V 

IF  (J-R)  60,90,60 
90  IF  (KN-2)  100,110,120 
100  V3(6.*VN-V)/D 

GO  TO  130 
110  V»VN 

GO  TO  130 
120  V»(DS»VN+FPP(I) )/(1.+FP(I) ) 
130  B-V 

D>DS 
140  OS»S(J)-S(I) 

U»FPP(I)-FP(I)»V 

FPPP(I)»(V-U)/DS 

FPP(I)«0 

FP  ( I )  ■  ( F  ( J )  -F  ( I )  )  /DS-DS*  ( V+X3+X3 )  /6 . 

V»U 

J»I 

I«I-K 

IF  (J-M)  140,150,140 
150  I»N-K 

FPPP{N)»FPPP(I) 

FPP(N)-B 

FP(N)aDF+D»(FPP(I)+B+B)/6. 

IND»1 

IF  (MODE)  180,180,160 
160  FPPP(J)>FQM 

V»FPP(J) 
170  I»J 

J-J+K 

DS»S(J)-S(I) 

U»FPP( J) 

FPPP ( J ) "FPPP ( I ) + . 5*DS» ( F ( I ) +F ( J ) -DS*DS» ( U+V ) /I 2 . ) 

V»0 

IF  (J-N)  170,180,170 
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180  RETURN 
END 


SUBROUTINE  INTPL  (MI,NI,SI,FI,M,N,S,F,FP,FPP,FPPP,MODE) 
C      INTERPOLATION  OF  CUBIC  SPLINE  BY  TAYLOR  SERIES 
C      AOOS  CORRECTION  FOR  PIECEWISE  CONSTANT  FOURTH  DERIVIATIVB 
C      IF  MODE  GREATER  THAN  0 

DIMENSION  SKI),  Fid),  3(1),  F(1),  FP(1),  FPP(1),  FPPP(1) 

K>IABS(N-M) 

K»(N-M)/K 

I=i- 

MIN"MI 

NIN-NI 

D>S(N)-S(M) 

IF  (D*(SI(NI)-SI(MI}))  10,20,20 
10  MIN-NI 

NIN»MI 
20  KlalABS(NIN-MIN) 

IF  (KI)  40,40,30 
30  KI»(NIN-MIN)/KI 
40  II-MIN-KI 

C>0. 

IF  (MODE)  60,60,50 
50  C«1. 
60  II»II+KI 

SS>SI(II) 
70  I-I+K 

IF  (I-N)  80,90,80 
80  IF  (D»(S(I)-SS))  70,70,90 
90  J»I 

I«I-K 

SS»SS-S(I) 

FPPPP=C»(FPPP( J)-FPPP(I) )/(S( J)-S(I) ) 

FF»FPPP ( I ) + . 25»SS*FPPPP 

FF-FPP ( I ) +SS»FF/3 . 

FF»FP(I)+.5»SS»FF 

FI(II)»F(I)+SS»FF 

IF  (II-NIN)  60,100,60 
100  RETURN 

END 


SUBROUTINE  READQS  (NQSTA,ZQSTA,PCQ1 ,PCQ2,PCQ3,Q1 ,Q2,Q3,Q4,PCS1 
1  ,PCS2,DSURF,FMACH) 

READS  IN  ASSIGNED  SPEED  DISTRIBUTION 

DIMENSION  ZQSTA(I),  PCQKI),  PCQ2  (  1 )  ,  PCQ3  (  1  )  ,  Q1  ( 1 )  ,  Q2  ( 1 )  ,  Q3(1) 
1  ,  Q4(1),  PCSKI),  PCS2(1),  DSURF(I) 

IREAD-9 

IWRIT-6 

AAO*  1 . /FMACH**2-^  .  2 

WRITE  (IWRIT,20) 
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READ  (TREAD, 40) 
READ  (IREAD,40) 
READ  (IREAD.SO)  FQSTA 
NQSTA-FQSTA 
DO  10  K»1,NQSTA 
READ  (IREAD,40} 

READ  (IREAD,50)  ZQSTA(K) ,PCQ1 (K) ,PCQ2(K) ,PCQ3 (K) ,Q1  CC) ,Q2(K} ,Q3(K} 
1  ,Q4(K) 
READ  (IREAD,40) 

HEAD  (IREAD,50}  PCS1 (K) ,PCS2(K) ,OSaRF(K) 

WRITE  (IWRIT,30)  K,ZQSTA(K) ,PCQ1(X} ,PCQ2(K) ,PCQ3(K) ,01 (K) ,02(K) .03 
1  (X)  ,04(K)  .PCSKK)  ,PCS2(K},DSnRP(K) 
01(K)»SQRT(  (AA0»Q1(K)»»2)/(1.  +  .2»QnK)**2)  ) 
02(K}>S0RT( (AA0*O2(K}**2)/(1.+.2*O2(K)**2) ) 
Q3(K)>SQRT(  (AA0«Q3(K}*«2)/(1.4-.2*O3(K}«*2}  ) 
O4(K)-SQRT((AA0*Q4(K}*«2)/(1.-f.2*O4(K)**2}} 
10  CONTINUE 
RETURN 

20  FORMAT  (54H1  PARAMETERS  TO  DEFINE  THE  ASSIGNED  DESIGN  MACH  NUMBER, 

1  13HDISTRIBUTI0N. ,/,/,3H   K, 9X, 1HZ , 6X,4HPCM1 , 6Z,4HPCM2,6X,4HPCM3 , 8 

2  X , 2HM1 , 8X , 2HM2 , 8X , 2HM3 , 8X , 2HM4 , 6X , 4HPCX1 , 6X , 4HPCX2 , 5X , 5HDSURF , / ) 
30  FORMAT  ( 1X,I2, 1 1F10 . 5) 

40  FORMAT  (IX) 
50  FORMAT  (8F10.5) 
END 


SUBROUTINE  SETQS  (NE,NX,QPRE, SO ,S0PRE, ITE1 ,ITE2,KTE1 ,KTE2,Z,ZQSTA 
1  ,A0,PCQ1,PCQ2,PCQ3,SI,FI,Q1 ,Q2 ,Q3 ,Q4 , PCS1 ,PCS2 ,DSUHF,NQSTA) 
C      DEFINES  ASSIGNED  SPEED  DISTRIBUTION  BY  EXPONENTIAL  SPLINE 
C      ALLOWS  EASY  CONSTRUCTION  OF  SHOCKLESS  DISTRIBUTION  USING  E  AND  G 

DIMENSION  QPRE(NE,1),  S0(NE,1),  S0PRE(NE,1),  ITE1 ( 1 ) ,  ITE2 ( 1 ) ,  Z(1 

1  ),  ZQSTA(I),  A0(1),  PCQKI),  PCQ2(1),  PCQ3  ( 1 )  ,  SI(1),  FI  ( 1 )  ,  Q1  f  1 

2  ),  02(1),  03(1),  04(1),  PCSKI),  PCS2(1),  DSURF(I) 
DIMENSION  X(4),  Y(4),  E(4},  G(4),  A(4),  B(4),  C(4),  D(4) 
DATA  ISET  /O/ 

BUMP(X)»16.»(X»(1.-X))»»2 
E(1)-.007 
E(2)*.007 
E(3)».007 
G(1)-0. 
6(2)*5. 
G(3)>45. 
LX-NX/2-fl 
MX-NX>1 
KM- 2 
VM-0. 
KN-3 
VN»0. 
K2a2 
K-KTE1-1 
10  K»K+1 
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II-ITEKK) 
l2iITE2(K) 
ZO*Z(K) 
K2-K2-1 
20  K2-K2+1 
K1-K2-1 
Z1»ZQSTA(K1) 
Z2»ZQSTA(K2} 
IK  (Z0.GT.Z2.AND.K2.LT.NQSTA)  GO  TO  20 

R1-(Z2-Z0)/(Z2-Z1) 

R2-1.-R1 

DLEN»AO ( 12 ) -AO ( LX ) 

PX1»R1»PCQ1 (K1 )+R2»PCQ1 (K2) 

PX2»R1 ♦PCQ2 ( K1 ) +R2*PCQ2 ( K2 ) 

PX3»R1»PCQ3(K1 )+R2»PCQ3(K2) 

X ( 1 ) -AO ( LX ) +PX1 ♦DLEN 

X( 2 ) -AO ( LX ) +PX2»DLEN 

X( 3 ) -AO (LX) +PX3»DLEN 

X(4)-A0(I2) 

Y( 1 )«R1»Q1 (K1 )+R2»Q1 (K2) 

Y(2)"R1*Q2(K1)+R2»Q2(K2) 

y ( 3 ) -RI^QS (K1 ) +R2*Q3 (K2 ) 

Y(4)»R1*Q4(K1)+R2»Q4(K2) 

CALL  SPTEN  (4 ,X, Y,E,G,A,B,C,D,KM, VM.Xa.VH) 

DO  30  I"1 ,MX 

QPRE(I,K)»0. 

IF  (ISET.EQ.O)  S0PRE(I,K)«S0(I,K) 
30  COHTINDE 

LS-I1 
40  LS-LS+1 

IF  (AO(LS).LT.X(I))  GO  TO  40 

NN»MX-LS+1 

DO  50  I»1,N1I 

J-LS+I-1 
50  SI(I)«AO(J) 

CALL  INTEN  (NN, SI ,FI ,4 ,X, A,B ,C,D,E,G) 

DO  60  laLS.MX 

J«I-LS+1 
60  QPRE(I,K)-FI(J) 

DENO-1 . /FLOAT (LS-I1) 

DO  70  I»I1,LS 
70  QPRE(X,K)-FLOAT(I-I1)»DEN0»Y(1) 

IF  (ISET.EQ.1)  GO  TO  90 
PX2-R1 ♦PCS2 (K1 ) +R2»PCS2 (K2 ) 
PX1»R1*PCS1(K1)+R2»PCS1(K2) 
DS0PRE»R1»DSURF(K1 )+R2»DSURF(K2) 
XI -AO ( LX) +PX1 ♦DLEN 
X2-A0(LX}-^PX2*DLEII 
I-I1 
30  I-I+1 

IF  (AO(I) .GT.X2)  GO  TO  90 
IF  (AO(I).LT.XI)  GO  TO  80 
XX-(A0(I)-X1)/(X2-X1) 
SOPRE(I,K)"SO(I,K)-DSOPRE»BDMP(XX) 
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60  TO  80 

90  IF  (k.lt.?:te2)  go  to  10 

ISET»1 
RETURN 
END 


SUBROUTINE  SPTEN  (N,S,?,E,G,A,B,C,D,KM, VM,KN, VN) 
C      COMPUTES  EXPONENTIAL  SPLINE  WITH  WEIGHTING  FACTORS 
C      E  IS  TENSION  PARAMETER,  SMALLER  E  PRODUCES  LESS  OSCILLATION 
C      G  IS  WEIGHT  FACTOR,  LARGER  G  PRODUCES  MORE  SAG 

DIMENSION  S(1),  F(1),  E(1),  G(1),  A(1),  B(1),  C(1),  D(1) 

NM»N-1 

H»S(2)-S(1) 

HI-1./H 

SI«1./SINH(H/E(1)) 

TI»SI»C0SH(H/E(1)) 

IF  (KM-2)  10,20,30 
10  B(1)3E(1)*(E(1)»HI-TI) 

C(1)»E(1)»(SI-E(1)»HI) 

D ( 1 ) -VM+HI» ( F ( 1 ) -F ( 2 ) ) +E ( 1 ) •G ( 1 ) ♦ ( SI-TI ) + . 5*H»G ( 1 ) 

GO  TO  40 
20  B(1)»1. 

C(1)-0. 

D(1)«VM 

GO  TO  40 
30  B(1)—TI 

C(1)-SI 

D ( 1 ) -G ( 1 ) ♦ ( SI-TI ) +VM»E ( 1 ) 
40  XXa1./B(1} 

D(1)»XX»D(1) 

DO  50  I»2,NM 

HMaH 

HIM>HI 

SIMaSI 

TIM»TI 

H»S(I+1)-S(I) 

HI-1./H 

SI»1./SINH(H/E(I) ) 

TI»SI»COSH(H/E(I) ) 

A{I)-E(I-1)*(SIM-HIM»E(I-1)) 

B(I)»E(I)*(HI»E(I)-TI)+E(I-1)*(HIM»E(I-1)-TIM) 

C(I)»E(I)»(SI-HI»E(I) ) 

D( I) -HIM* (F(I)-F(I-1))+E( 1-1 )*G( 1-1 )♦( SIM-TIM) +.5»HM»G( 1-1 )+HI»(F 
1  (I)-F(I+1))+E(I)»G(I)»(SI-TI)+.5»H*G(I) 

C(I-1)-XX»C(I-1) 

XX«1./(B(I)-A(I)»C(I-1)) 
50  D(I)-(D(I)-A(I)«D(I-1))»XX 

IF  (KN-2}  60,70,80 
60  A(N)-E(NM}*(HI*E(NM)-SI} 

B(N)-E(NM)»(TI-HI»E(NM) ) 

D(N)»VN+HI»(F(NM)-F(N) ) - . 5»H»G(NM) +E(NM) •G{NM) • ( TI-SI ) 

GO  TO  90 


-  132  - 


70  A(N)«0. 

B(II)-1. 

D(N)>VN 

GO  TO  90 
80  A(N}— SI/E(im} 

B(N)»TI/E(NM) 

D(N)«VN+G(NM)»(TI-SI)/E(NM) 
90  C(NM}-ZX«C(NM) 

XX»1./(B(N)-A(N)»C(NM) ) 

0(N)-(D(R)-A(H}*0(NM) ) •ZZ 

DO  100  J-2,N 

I-N+1-J 
100  D(I)»D(I)-C(I)»D(1+1) 

DI»D(1) 

DO  110  I-1,NM 

DIP»D(I+1) 

H-S(I+1)-S(I) 

SI«1./SINH(H/E(I)) 

A(I)«F(I+1)-F(I)+(DI-DIP)*E(I)*»2-.5*G(I)*H»»2 

B(I)»F(I)+(G(I)-DI)»E(I)»»2 

C(I)>SI*(DIP-G(I) )*E(I)«*2 

D(I)»SI»(DI-G(I))»E(I)**2 
110  DI-DIP 

RETURN 

END 


SUBROUTINE  INTEN  (NX, SI ,FI ,N, S ,A,B,C,D, E,G) 

COMPUTES  INTERPOLATED  VALUES  FROM  EXPONENTIAL  SPLINE 

DIMENSION  SKI),  FI(I),  S(1),  A(  1 )  ,  B(1),  C(1),  D(1),  E(1),  G(1) 

I»0 

J»1 

JP»J+1 
10  I-I+1 
20  IF  (SKI)  .LT.S(JP)  )  GO  TO  30 

IF  (JP.EQ.N)  GO  TO  30 

J"J+1 

JP«J+1 

GO  TO  20 
30  HI-1./(S(JP)-S(J)) 

EI«1./E(J) 

FKI)»P(J)+HI*A(J)»(SI(I)-S(J)  )+C(J)»SINH(EI»(SI(I)-S(J))  )+D(J) 
1  •SINH(EI»(S(JP)-SKI)  )  )  +  .5»G(J)»(SI(I)-S(J))»*2 

IF  (I.LT.NX)  GO  TO  10 

RETURN 

END 


SUBROUTINE  NACELLE  (KPLOT) 

THIS  ROUTINE  GOVERNS  THE  LOCATION  AND  PLOTTING  OF  THE  NACELLE 
COMMON  G( 200, 35, 35),  S0(200,35),  E0(202),  Z0(202},  1V(200,35), 
1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  E3(35), 
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2  B1(35),  B2(35),  B3(35),  ZPHYSOS),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  yC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  EA,  FMACH, 

5  m,  N2,  N3,  10,  NOES,  TSTEP,  BPS1,  QPRE(  200  ,  35 }  ,  SOPRB(  200  ,35  )  , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  OQ3(35),  QQ4(35},  PCS1(35},  PCS2(35),  DSURF(35),  RDQ,  ROSO,  FOO, 

8  F01,  F10,  F11,  NOQ,  IQ,  KQ,  AWING,  VOLDRG,  IORG?LT( 200 , 35 } , 

9  SECORG(35},  FINH1 ,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCE,  YSOORCB, 
$  ZSOURCE,  STRENGTH 

COMMON  /NAC/  SCAI.2,  ANGALPHA,  AB(4},  AM(5),  X(5),  Y(5),  Z(5),  U(5) 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2,  A(3,3),  OX,  DY,  OZ,  0X2, 

2  HALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30},  PI,  XSPL(30},  ZSPL1(30},  ZSPI.2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA( 30 ,30 ) ,  XPL(250},  YPL(250},  ZPL( 

5  250),  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ ,  CHOROO,  YSHRNKdO),  ZSHRNK(10), 
1  CL 

COMMON  /DIM/  RX,  RY,  RZ,  FOIM 
C      THIS  ROUTINE  GOVERNS  THE  LOCATION  AND  PLOTTING  OF 
C      THE  NACELLE.  FIRST  READ  THE  INPUT. 

CALL  INIT 

PI»4»ATAN(1.0) 
C      FIND  THE  STAGNATION  POINT. 

R0b0.04«CHORD0 

lENOa 1 3 

IF  (STRENGTH.GT.O. )  THEN 

CALL  STAG  (XSTAG, YSTAG,ZSTAG) 

INOENG-0 

XSTOP-XSOURCB-t- .  09*CHORD0 

WRITE  (6,90)  RO 

WRITE  (6,70)  XSTAG, YSTAG,ZSTAG 

WRITE  (6,80)  XSTOP 

WRITE  (6,60)  XSOURCE, YSOURCE, ZSOURCE 

ELSE 

I»NX-10 

J-NY-4 

XSTAG«XC(5)+.5»SCAL»(A0(I)»»2-(B0(J)+S0(I,5) )**2) 

YSTAG»YC ( 5 ) +SCAL»AO ( I ) • (BO ( J ) +S0 (1,5)) 

ZSTAG-ZPHYS(5) 

XSTOP-XSTAG-t- .  0  1  *CHORD0 

INOENG- 1 

END  IF 

DXSTAT» ( XSTOP-XSTAG ) / ( lEND ) 

XSTAT( 1 ) "XSTAG+DXSTAT 

NSTREAM-9 

D0MEGA-2*PI/NSTREAM 

DO  10  I-2,IEN0 
10  XSTAT(I)-XSTAT(I-1)+DXSTAT 

0MEGA-5.*00MEGA 

XSTART>XSTAG- . 0 1 7*CHORD0 

DO  40  ISTREAM«1,NSTREAM 

YSTART-YSTAG+RO»SIN ( OMEGA ) 

ZSTART>ZSTAG-RO •COS (OMEGA) 

CALL  PHSCMP  (XSTART,YSTART,ZSTART,X(1),Y(1),Z(1) ) 
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CALL  START 

K»0 
20  K-K4-1 

lSTGCNT-0 
30  CALL  STEP 

1STGCNT»ISTGCNT+1 

IF  (ISTGCKT.GT.300)  THEN 

ISTGFL6>1 

CA-CA+.1 

ISTGCNT»0 

ENDIF 

CALL  CMPPHS  (X(4),Y(4),Z(4),XPH4,yPH4,ZPH4) 

IF  (ZPH4.GE.ZSTAT(K) }  THEH 

IF  (ISTGFLG.NE.O)  THEN 

ISTGFLG-0 

CA>COS(ASIN(SA)} 

ENOIF 

CALL  CMPPHS  (X(3),Y(3),Z(3),ZPH3.yPH3,ZPH3) 

YTMP- ( ( XPH4-XSTAT ( K ) ) ♦YPH3+ ( XSTAT ( K ) -XPH3 ) •YPH4 ) / ( XPH4-XPH3 ) - YSTAG 

ZTMP-  (  ( XPH4-XSTAT  ( K }  }  •ZPH3-f  ( XSTAT  ( K }  -XPH3 }  •ZPB4  )  /  ( XPH4-ZPH3  )  -ZSTAG 

R ( ISTRBAM ,  K }  «>SQRT  ( YTMP**2-t-ZTMP*«2 ) 

TMP»-ZTMP/R( 1STREAM,K) 

IF  (YTMP.GE.O)  THEN 

THETA  ( ISTREAM ,  K )  'ACOS  ( TMP ) 

ELSE 

THETA(ISTREAM,K)»2»PI-AC0S(TMP) 

ENDIF 

IF  (K.LT.IEND)  GO  TO  20 

ELSE 

GO  TO  30 

ENDIF 
40  OMEGAaOHEGA-i-OOMEGA 

DO  50  Ka1,IEN0 
50  CALL  SFT  (R, THETA, NSTREAM.K) 

CALL  SMOOTH  (R, 1 ,NSTREAM,IENO) 

IF  (KPLOT.GT.O)  THEN 

CALL  KEEP80  (1,3) 

CALL  FR80ID 

CALL  HAP  (0.0,12.0.0.0,12.0) 

ENDIF 

IF  (KPL0T.GT.1)  CALL  PLZ  ( IEND,XSTAG, YSTAG, ZSTAG, NSTREAM) 

CALL  PLY  (lEND.XSTAG, YSTAG, ZSTAG, NSTREAM, R0,INOENG,KPLOT) 

IF  (KPLOT.GT.O)  CALL  PLOTE 

60  FORMAT  ('SOURCE  AT',3F10.6) 
70  FORMAT  ('SPEED  MINIMUM  AT',3F10.6) 

80  FORMAT  ( 'XCOORD  FOR  STREAMLINE  TERMINATION' ,F10 . 6 ) 
90  FORMAT  ('INITIAL  RADIUS  OF  STREAM  TUBE',F10.6) 
END 


SUBROUTINE  SMOOTH  ( R,N, NSTREAM, lEND) 

THIS  SUBROUTINE  SMOOTHS  THE  FUNCTION  R( THETA) 
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DIMENSION  R{30,30) 
DO  10  I-1,IEND 
DO  10  J-N-t-1,NSTREAM 
10  R(J,I)«0. 
END 


SUBROUTINE  NOSCMP  (CHS ,X, YZl ,yZ2,2STAG) 

COMPUTE  NACELLE  NOSE  FOR  PLOTTING 

DIMENSION  CNS(5),  X(30),  YZl (30),  YZ2(30) 

H«.5»(YZ2(1)-YZ1(1)) 

X2P-1.0 

X1P— 1.0 

CNS  (  5  )  •  .  5 ♦  ( YZ2  (  1 )  +  YZ 1  ( 1 )  ) 

CNS(4)»1.5»(X1P+X2P)/(6»H»H) 

CNS(3)».5»(X2P-X1P)/(2»H) 

CNS(2)  —  .25»(X1P+X2P) 

CNS(1)»X(1)-.25»H»(X2P-X1P) 

END 


SUBROUTINE  NOSEV  ( CNS , YZEV , XEV ) 

EVALUATE  NACELLE  NOSE  FUNCTION 

DIMENSION  CNS (5) 

DIF*yZEV-CNS(5) 

XEV»CNS ( 1 ) +DIF* ( CNS ( 2 ) +DIF» ( CNS ( 3 ) +DIF» ( CNS ( 4 ) ) ) ) 

END 


SUBROUTINE  SPEED  (XX, YY.ZZ ,UU, W.WW.IFLAG) 
C      THIS  ROUTINE  COMPUTES  THE  VELOCITY  AT  THE  COMPUTATIONAL 
C      POINT  XX,YY,ZZ.  THE  VELOCITY  IN  THE  COMPUTATIONAL  SPACE 
C      IS  RETURNED  IF  IFLAG-0,  THE  PHYSICAL  VELOCITY  IS  RETURNED 
C      FOR  IFLAG-1 . 

COMMON  G( 200, 35, 35),  S0(200,35),  E0(202),  Z0(202},  IV(200,35}, 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 , 35 ) ,  SOPRE( 200 ,35 ) , 

6  NQSTA,  ZQSTA(35),  ?CQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLORG,  IDRGPLT( 200 , 35 ) , 

9  SECDRG(35),  FINH1 ,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCE,  YSOURCE, 
$  Z SOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2 ,  ANGALPHA,  AB(4),  AM(5),  X(5),  Y(5),  Z(5},  U(5) 

1  ,  V(5},  W(5),  XMAX,  XM1,  ZM1,  H,  B2 ,  A(3,3),  DX,  DY,  DZ ,  DX2 , 

2  HALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA( 30 ,30 ) ,  XPL(250),  YPL(250),  ZPL( 

5  250) ,  YA 
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COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ,  CHORDO,  YSHRNK(IO),  ZSHRWK(IO), 
1  CL 
COMMON  /DIM/  RX,  RY,  RZ,  FDIM 
DIMENSION  W1 (4),  W2(4),  W3(4),  D(4,4) 
DX3*DX*DX*DX 
DY3»DY»DY»DY 
DZ3>DZ*DZ*DZ 
T 1 ■ 1 + ( XX+XMAX ) /DX 
I»INT(T1) 

17  ((T1-I) .GT.0.0)  I-I+1 
T1-NY+1-YY/DY 
J»INT(T1) 

IF  ( (T1-J) .GT.0.0)  J-J+1 
T1-K1+ZZ/DZ 
K-INT(TI) 

IF  ((T1-K). GT.0.0)  K-K+1 
HI»( (I-1)*DX-XMAX-XX) 
HJ-( (NY+2-jn*DY-YY) 
HK»((K-K1)»DZ-ZZ) 
HII«DX-HI 
HJJ-DY-HJ 
HKK-DZ-HK 
THI-HI/DX 
THII-1-THI 
THJ-HJ/DY 
THJJ-1-THJ 
THK«HK/DZ 
THKK»1-THK 

W1 ( 1 ) »- { ( 1 +THI ) ♦ ( THI-THII ) -THI*THII ) / ( 6*DX ) 
W1(2)»-.5*((1 +THI+THI ) ♦ ( 1 +THII ) -TBI* ( 1 +THI ) ) /DX 
W1( 3 ) » . 5* ( ( 1 +THII+THII ) ♦ ( 1 +THI ) -THII* ( 1 +THII ) ) /DX 
W1 ( 4 ) » ( (1 +THII ) ♦ ( THII-THI ) -THI»THII ) / ( 6»DX ) 
DO  10  J J- 1,4 
DO  10  KX»1,4 
10  D(JJ,KX)»W1(1)»G(I-2,J-3+JJ,K-3+IW)+Wl(2)*G(I-1,J-3+JJ,K-3+KX)+W1( 

1  3 ) ♦Gt I , J-3+ JJ ,K-3+KK ) +W1 ( 4 ) •GC 1+ 1 , J-3+ JJ ,K-3+KK) 
W2 ( 1 ) »- ( 1 +THJJ ) ♦TH J»THJ J/ ( 6 ) 
W2 ( 2 ) ■ . 5* ( 1 +TH J ) ♦TH J J» ( 1 +TH JJ ) 
W2 ( 3 ) - . 5» ( 1 +THJ ) ♦TH J» ( 1 +TH J J ) 
W2 ( 4 ) •- ( 1 +TH J ) ♦TH J^TH JJ/ ( 6 ) 
DO  20  KK*1,4 
20  D(1,KX)-W2(1)^D(1,KX)+W2(2)^D(2,KK)+W2(3)^D(3,iaC)+W2(4)^D(4,KK) 

W3  ( 1 ) •- { 1 +THK ) ♦THKK^THK/ ( 6 ) 

W3(2)».5^( 1+THKK)^THK^( 1+THK) 

W3  ( 3  )  • .  5 ♦  ( 1 +THKX )  ♦  THIOC^  ( 1  ♦  THX ) 

W3  ( 4 )  —  ( 1  +THiaC )  ♦THKX^THK/  ( 6 ) 

UT-W3(1)^D(1,1)+W3(2)^D(1,2)+W3(3)^D(1,3)+W3(4)^D(1,4) 

W1(1)»( (1+THJJ)^(THJJ-THJ)-THJ^THJJ)/(6^DY) 

W1  ( 2 ) - . 5^ ( ( 1 +TH J J+TH J J ) ♦ ( 1 +THJ ) -TH J J^ ( 1 +TH JJ ) ) /DY 

W1 ( 3 ) — . 5^ ( ( 1 +TH J+THJ ) ♦ ( 1 +TH J J ) -TH J^ ( 1 +THJ ) ) /DY 

W1 ( 4 ) =- ( ( 1 +TH J ) ♦ ( THJ-TH JJ ) -THJ^TH J J ) / { 6^DY ) 

DO  30  11*1,4 

DO  30  KK«1 ,4 
30  D(II,iaC)»W1(1)^G(II+I-3,J-2,K-3+KlC)+W1(2)^G(II+I-3,J-1,K-3+KK)+VT1( 
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1  3)»G(II+I-3,J,K-3+KK)+W1(4)»G(ll+I-3,J+1,K-3+iaC) 

W2 ( 1) ■- { 1 +THI ) ♦THII*THI/ ( 6 ) 

W2  ( 2 ) ■ . 5» ( 1 +THII ) •THI» { 1 +THI ) 

W2  ( 3 ) ■ . 5» (1 +THII ) •THIl* ( 1 +THI ) 

W2  ( 4 ) ■- ( 1 +THII ) ♦THII»THI/ ( 6 ) 

DO  40  KK-1,4 
40  0(1,KK)-W2(1}*0(1.KK}-^W2(2)*0(2,KX}4-W2(3)«D(3,KK)-hW2(4}*D(4,KX) 

VT-W3(1)»D(1,1)+W3(2)»D{1,2)+W3(3)»D(1,3)+W3(4)*D(1,4) 

W1 ( 1 ) ■- ( ( 1 +THK ) ♦ ( THK-THKK ) -THK»THKK ) / ( 6»DZ ) 

W1(2)  —  .5»(  (1+THK+THK)»(1+THiaC)-THK»(1+THK)  )/DZ 

W1(3)».5*((1  +THiaC+THiaC )  •  (1 +THK )  -THKK*  ( 1 +THKK )  )  /DZ 

W1  { 4  )  ■  (  (  1 +TH1CK )  ♦  ( THKK-THK )  -THK»THKK )  /  (  6»DZ ) 

DO    50    JJ»1,4 

DO    50    Il«1,4 
50   D(JJ,II)»W1(1)»G(II+I-3,J-3+JJ,K-2)+W1(2)*G(II+I-3,J-3+JJ,K-1)+Wl( 
1    3)»G(II+I-3,J-3+JJ,K)+W1(4)»G(ll+I-3,J-3+JJ,K+1) 

W3 ( 1 ) -W2 ( 1 ) 

W3  ( 2 ) bW2 ( 2 } 

W3 ( 3 ) aW2 ( 3 } 

K3 ( 4 ) •W2 ( 4 } 

W2  ( 1 ) ■- (1 +TH J J ) •THJ»TH JJ/ ( 6 ) 

W2  ( 2 ) ■ . 5* ( 1 +TH J ) ♦THJ J» ( 1 +THJ J ) 

W2 ( 3 ) ■ . 5» ( 1 +THJ ) ♦TH J» ( 1 +TH J J ) 

W2 ( 4 ) ■- (1 +TH J ) •TH J*THJ J/ ( 6 ) 

DO  60  11-1,4 
60  D  ( 1 ,  II )  BW2  (  1 }  AD  ( 1 ,  II )  ■t-W2  (  2 }  •D  (  2 ,  II )  ■(■W2  (  3  )  *0  (  3  ,  II }  -«-W2  ( 4  )  #0  ( 4 ,  II ) 

WT»W3 ( 1 ) ♦D ( 1 , 1 ) +W3 ( 2 ) ♦D ( 1 , 2 ) +W3 ( 3 ) •D ( 1 , 3 ) +W3 { 4 ) •D ( 1 , 4 ) 

CALL  JAC  (XZ,YY,ZZ} 

aU»SCAL»(A(1,1)»aT+A(1,2)»VT+A(1,3)»WT)+CA 

W-SCAL*  ( A  ( 2 , 1 )  ♦UT+A  (2,2)  ♦VT+A  (2,3)  #WT )  +SA 

WW-SCAL* ( A( 3 , 1 ) ♦UT+A ( 3 , 2 ) ♦VT+A( 3 , 3 ) ♦WT ) 

IF  (I7LAG.EQ.0)  THEN 

UT»UU 

VT»W 

WT*WW 

aU«A (1,1) ♦UT+A (2,1) •VT+A (3,1) ♦WT 

W-A  (1,2)  ♦UT+A  (2,2)  ♦VT+A  (3,2)  ♦WT 

WW«A  (1,3)  ♦OT+A  (2,3)  ♦VT+A  (3,3)  ♦WT 

ENDI7 

END 


SUBROUTINE  START 
C      FOURTH  ORDER  RUNGE-KUTTA  START-UP.  H  IS  THE  STEP  SIZE, 
C      H2*H/2.  THE  COORDINATES  OF  THE  STARTING  POINT  SHOULD 
C      BE  IN  X(1) ,Y(1) ,Z(1)  WHEN  THIS  ROUTINE  IS  CALLED. 

COMMON  G(200,35,35),  50(200,35),  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35),  C2(35),  C3(35),  j;C(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH , 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE(  200  , ''5  )  ,  S0PRE(  200  ,  35  )  , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 
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7  QQ3(35),  QQ4(35).  PCS1(35),  PCS2(35).  DSUR7(35),  ROQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NOQ,  IQ,  KQ,  AWING,  VOLORG,  IDRGPLT( 200 ,35 ) , 

9  SECORG(35},  FINH1 ,  FIIIH2,  ISRC,  JSRC,  KSRC,  XSODRCE,  YSOnRCE, 
t  ZSOORCE,  STRENGTH 

COMMON  /NAC/  SCAL2,  ANGALPHA,  AB(4},  AM(5),  Z(5),  Y(5),  Z(5},  a(5} 

1  ,  V(5),  W(5),  ZMAZ,  XM1,  ZM1 ,  B,  H2,  A(3,3},  DZ,  07,  OZ,  0X2, 

2  HALFLAG,  ZSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  ZSTAT(30),  PI,  ZSPL(30},  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30) ,  THETA(30 ,30) ,  ZPL(250),  YPL(250),  ZPL( 

5  250),  YA 

COMMON  /NAC1/  ZM,  ZM,  MZ,  MY,  MZ,  CEOROO,  YSHRNKdO),  ZSHRNKdO), 
1  CL 
COMMON  /DIM/  RZ,  RY,  RZ,  FDIM 
00  10  1-1,3 

CALL  SPEED  (Z( I) , Y(I) ,Z(I) ,U( I ) , V( I) ,W( I ) , 0 ) 

CALL  SPEED  (Z( I ) +H2»a( I) , Y(I) +H2»V( I ) ,Z( I) +H2»W(I) ,UT2, VT2 ,WT2, 0 ) 
CALL  SPEED  (Z( I) +H2»aT2, Y( I ) +H2»VT2,Z( I ) +H2»WT2,UT3 , VT3 ,WT3 , 0 ) 
CALL  SPEED  (Z( I)+H»UT3 , Y( I)+H»VT3,Z(I)+H*WT3,UT4,VT4,WT4, 0 ) 
Z(I+1)»Z(I)+H*(0(I)+2»(OT2+OT3)+UT4)/6 
Y(I+1)»Y(I)+H»(V(I)+2»(VT2+VT3)+VT4)/6 
Z ( 1+ 1 ) -Z ( I ) +H* ( W ( I ) +2* ( WT2+WT3 ) +WT4 ) /6 
10  CONTINUE 

CALL  SPEED  (Z(4 } , Y(4 ) ,Z(4 ) ,a(4) , V(4) ,W(4 ) , 0 } 
END 


SUBROUTINE  STEP 
C      THIS  ROUTINE  ADVANCES  THE  SOLUTION  OF  THE  O.O.E.  ONE 
C      STEP  USING  A  FOURTH  ORDER  ADAMS-BASHFORTH-MOULTON 
C      PREDICTOR- CORRECTOR  PAIR. AT  THE  END  OF  THE  ROUTINE, 
C      THE  VECTORS  Z,Y,Z,U,V  &  W  ARE  SET  UP  FOR  THE  NEZT  STEP. 
C      IF  THE  AOAMS-MOULTON  ITERATION  DOES  NOT  CONVERGE  IN 
C      TEN  ITERATIONS, THE  STEP  SIZE  IS  HALFED.  IF  IT  CONVERGES 
C      WELL  IN  1  ITERATION  AND  THE  STEP  SIZE  HAS  BEEN  HALFED, 
C      THE  STEP  SIZE  IS  DOUBLED. 

COMMON  G(200, 35,35),  S0(200, 35),  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITB2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35),  C2(35),  C3(35),  ZC(35) 

3  ,  ZZ(35),  ZZZ(35),  YC(35),  YZ(35),  YZZ(35),  NZ,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NOES,  TSTEP,  EPS1,  QFRE( 200 , 35) ,  SOPRE( 200 , 35 ) , 

6  NQSTA,  ZQSTA(35},  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  OSURF(35),  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLORG,  IORGPLT( 200 , 35} , 

9  SECDRG(35),  FINH1 ,  FINH2,  ISRC,  JSRC,  KSRC,  ZSOURCE,  YSOURCB, 
$  ZSOURCE 

COMMON  /NAC/  SCAL2,  ANGALPHA,  AB(4),  AM(5),  Z(5),  Y(5),  Z(5),  U(5) 

1  ,  V(5),  W(5),  ZMAZ,  ZM1 ,  ZM1 ,  H,  H2,  A(3,3),  DZ,  OY,  DZ ,  DZ2 , 

2  HALFLAG,  ZSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  ZSTAT(30),  PI,  ZSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA( 30 ,30 ) ,  ZPL(250),  YPL(250),  ZPL( 

5  250),  YA 

COMMON  /NAC1/  ZM,  ZM,  MZ,  MY,  MZ,  CHORDO,  YSHRNK(IO),  ZSHRNK(IO), 
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1  CL 
COMMON  /DIM/  RZ,  RY,  RZ,  FDIM 
ICOUNT-0 

X(5)-X(4)+AB(4)»a(4)+AB(3)»a(3)+AB(2)*a(2)+AB(1)*0(1) 
Y(5)-y(4)+AB(4)»V(4)+AB(3)»V(3)+AB(2)*V(2)+AB(1)»V(1) 
Z(5)-Z(4)+AB(4)»W(4)+AB(3)»W(3)+Aa(2)»W(2)+AB(1)»W(1) 
AMX>Z(  4 } -(^AMC  4 )  •nC  4 ) -t-AMC  3 )  •UC  3 ) +AM(  2)  «0(  2 ) 
AMY«Y(4)+AM(4)»V(4)+AM(3)»V(3)+AM(2)»V(2) 
AMZ>Z  ( 4 }  -I- AM  ( 4 )  *W  ( 4 )  -i-AM  ( 3 }  *W  ( 3 }  +AM  ( 2 }  aW  ( 2 ) 
XT»X(5) 
YT»Y(5) 
ZT3Z(5) 
10  CONTINUE 

CALL  SPEED  (Z( 5) , Y(5) ,Z( 5) ,U( 5) ,V( 5) ,W( 5) , 0 } 

Z(5}-AMX-i-AM(5}*a(5) 

Y(5)«AMY+AM(5)»V(5) 

Z  (  5 } -AMZ -f  AM  (  5  )  •W  (  5 ) 

CORREC-ABS ( X ( 5 ) -XT ) +ABS ( Y ( 5 ) - YT) +ABS ( Z ( 5 ) -ZT ) 

IF  (CORREC.GT. ( .00001)}  THEN 

I COUNT "I COUNT + 1 

IF  ( ICOUNT . GT . 1 0 )  THEN 

H>H2 

H2a.5«H 

CALL  ADMCOEF  (AB,AM,H} 

HALFLAG«HALFLA6-t- 1 

CALL  START 

GO  TO  30 

ELSE 

XT«X(5) 

YT-Y(5) 

ZT«Z(5) 

GO  TO  10 

ENDIF 

ELSE 

IF  ( (CORREC.LT. ( .000009) ) .AND. (ICOUNT. EQ.O) )  THEN 

IF  (HALFLAG.GT.O)  THEN 

H2>H 

H«H-(-H 

CALL  ADMCOEF  (AB,AM,H) 

HALFLAG>HALFLAG- 1 

CALL  START 

GO  TO  30 

ENDIF 

ENDIF 

ENDIF 

CALL  SPEED  (X( 5 ) , Y( 5 ) ,Z( 5) ,U(5) , V( 5) ,W( 5 ) , 0 ) 

CALL  SPEED  (X( 5 ) , Y( 5 ) ,Z( 5) ,UTM,VTM,WTM, 1 ) 

00  20  I>1,4 

X(I)-X(I+1) 

Y(I)-Y(I+1) 

Z(I)»Z(I+1) 

U(I)-U(I+1) 

V(I)«V(I+1) 

W(I)«W<I+1) 
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20  CONTINUE 
30  STOP 
END 


SUBROUTINE  INIT 

INITIALIZE  VARIABLES  FOR  STREAMLINE  TRACING 

COMMON  G( 200, 35, 35),  S0(200,35),  E0(202},  Z0(202),  IV(200,35), 

1  ITE1(35).  ITE2(35),  A0(200},  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2{35),  B3(35),  ZPHYS(35),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  yZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FHACH, 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  BPS1,  QPRE( 200 ,35 } ,  S0PRE( 200 , 35 ) , 

6  NQSTA,  ZQSTA(35},  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSURr(35),  ROQ,  RCSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLORG,  IORGPLT( 200 ,35 ) , 

9  SECDRG(35),  FINH1 ,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCE,  YSOURCE, 
«  ZSOURCE 

COMMON  /NAC/  SCAL2 ,  ANGALPHA,  AB(4),  AM(5),  X(5),  Y(5},  Z(5),  U(5} 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2,  A(3,3),  DX,  OY,  DZ,  0X2, 

2  HALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30},  THETA( 30 ,30 ) ,  XPL(250),  YPL(250},  ZPL( 

5  250).  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ,  CHORD  0 ,  YSHRNKdO),  ZSHRNKdO), 
1  CL 
COMMON  /DIM/  RX,  RY,  RZ,  FDIM 
HALFLA6>0 

XSOURCE-XC  ( KSRC )  •»- .  5*SCAL*  ( AO  ( ISRC }  •*2-  (BO  ( JSRC )  -t-SO  ( ISRC , KSRC )  )  **2 } 
YSOURCE>YC ( KSRC )  -t-SCAL^AO  ( ISRC }  *  ( BO  ( JSRC )  +S0  ( ISRC , KSRC )  ) 
ZSOURCE>ZPHYS ( KSRC ) 
XMAX-RX 
MX>NX-l-1 
MY»NY+2 
MZ»NZ-i-3 
DX*2.«RX/NX 
DY«RY/NY 
DZ>RZ/NZ 
H»DX/15. 
H2».5*3 

CALL  ADMCOEF  (AB,AM,H) 
YCA«YSHRNK( 1) 
YCBaYSHRNK ( 2 ) 
ZCA-ZSHRNKd) 
ZCB>ZSHRNK(2) 
XM1-1-XM 
ZM1*1-ZM 
ZTIP«ZM*SCALZ 
COSAL«COS ( ANGALPHA ) 
SINAL-SIN ( ANGALPHA ) 
K1-3 
K2*NZ+2 
SCAL2*SCAL/2 
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END 


SUBROUTINE  PHSCMP  (XPHS , YPHS ,ZPHS ,XCMP , YCMP, ZCMP) 
C      THIS  ROUTINE  MAPS  PHYSICAL  COORDINATES, XPHS , YPHS ,ZPHS, 
C      TO  COMPUTATIONAL  COORDINATES  XCMP, YCMP, ZCMP 

COMMON  6(200,35,35) ,  S0(200,35),  E0(202),  Z0(202},  IV(200,35), 

1  ITE1(35},  ITE2(35),  A0(200},  A1(200),  A2(200),  A3(200),  60(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  ZPS1,  QPRE( 200 , 35 } ,  SOPRE( 200 , 35 ) , 

6  NQSTA,  ZQSTA(35},  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSUR7(35),  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 200 ,35 ) , 

9  SECDRG(35),  FINHl ,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCE,  YSOURCE, 
$    ZSOURCE 

COMMON  /NAC/  SCAL2,  AN6ALPHA,  AB(4),  AM(5),  X(5),  Y(5),  Z(5),  U(5) 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2 ,  A(3,3),  DX,  DY,  DZ,  DX2, 

2  HALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2 ,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA( 30 ,30 ) ,  XPL(250),  YPL(250),  ZPL( 

5  250] ,  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ,  CHORD 0 ,  YSHRNK(IO),  ZSHRNK(IO), 
1  CL 

COMMON  /DIM/  RX,  RY,  RZ,  FDIM 
C      SCALE  Z 

TI-ZPHS/SCALZ 
C      MAP  Z  INTO  THE  COMPUTATIONAL  DOMAIN 

IF  (T1.GT.ZM)  THEN 

T1»ZM+(T1-ZM)/SQRT( 1+( (T1-ZM)/ZM1 ) •♦2 ) 

ELSE 

IF  (ABS(T1-ZSHRNK(3) ) .LT.ZSHRNK(4) )  THEN 

CALL  INVSH  (T1,T1,ZSHRNK,0.0) 

ENDIF 

END  IF 

ZCMP»T1 
C      LOCATE  THE  FIRST  SPAN  STATION  PAST  Z 

T1-K1+ZCMP/DZ 

K«INT(T1) 

IF  ((T1-K) .GT.0.0)  K»K+1 
C      USE  A  TAYLOR  EXPANSION  AT  THE  NEAREST  SPAN  STATION  TO 
C      FIND  THE  BRANCH  POINT  IN  THE  PLANE  Z-ZPHS 

T1»ZPHYS(K)-ZPHS 

T2aZPHS-ZPHYS(K-1 ) 

IF  (T1.LT.T2)  THEN 

T3».5»T1»T1 

T4»XC ( K ) -T 1 *XZ ( K ) +T3  »XZZ ( K ) 

T5»YC(K)-T1»YZ(K)+T3»YZZ(K) 

ELSE 

T3».5»T2»T2 

T4-XC ( K- 1 ) +T2»XZ ( K- 1 ) +T3»XZZ ( K- 1 ) 

T5-YC ( K- 1 ) +T2»YZ ( K- 1 ) +T3»yZZ ( K- 1 ) 
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END  IF 
C      SHIFT  THE  BRANCH  POINT  TO  THE  ORIGIN  AND  SCAIi3  ZFHS  &  YFHS 

T4- ( XPHS-T4 ) /SCAL 

T5«(YPHS-T5)/SCAL 
C      COMPUTE  THE  ABSCISSA (TS)  AND  THE  ORDINATE (T9}  IN  THE  SORT  PLAN 

T6»SQRT(T4»*2+T5»»2) 

T7«SQRT(T6-T4) 

IF  (T5.GT.0. )  THEN 

T8»SQRT(T6+T4) 

ELSE 

T8»-SQRT(T6+T4) 

END  IF 
C      MAP  T8  TO  XCMP 

IF  (T8.LT.-XM)  THEN 

T9-T8+XM 

XCMP— XM+T9/SQRT  (1  +  ( T9/XM1 )  •♦2 ) 

ELSE 

IF  (T8.GT.XM)  THEN 

T9*T8-XM 

XCMP-XM+T9/SQRT ( 1 + ( T9/XM1 ) ♦•2 ) 

ELSE 

XCMP-T8 

ENDIF 

END  IF 
C      LOCATE  XCMP  ON  THE  GRID 

T 1 ■ 1 + ( XCMP+XMAX ) /DX 

I»INT(T1) 

IF  ( (T1-I) .GT.0.0)  IaI+1 
C      INTERPOLATE  MAPPED  WING  SURFACE/VORTEX  SHEET,  SHEAR 
C      ORDINATE  IN  SORT  PLANE  (T7),AND  MAP  IT  TO  YCMP 

HI- ( -XMAX+ ( I- 1 ) ♦DX-XCMP ) /DX 

HII«1-HI 

HK- ( ( K-K1 ) ♦DZ-ZCMP ) /DZ 

HKX-I-HK 

T7»((T7-HKK»(HII»S0(I,K)+HI»S0(I-1,K))-HK»(HII»S0(I,K-1)+HI»S0(I-1 

1  ,K-1)))) 
T8-2»T7/SQRT(1+4»T7»*2) 

IF  (ABS(T8-ySHRNIC(3)  )  .GE.YSHRNK(4)  )  THEN 
YCMP-T8 
ELSE 

CALL  INVSH  (T7, YCMP, YSHRNK, 1.0) 
ENDIF 
END 


SUBROUTINE  CMPPHS  (XCMP, YCMP, ZCMP,XPHS,YPHS,ZPHS) 
C      THIS  ROUTINE  MAPS  COMPUTATIONAL  COORDINATES  XCMP, YCMP, Z CMP, 
C      TO  PHYSICAL  COORDINATES  XPHS , YPHS ,ZPHS 

COMMON  G( 200, 35,35 ) ,  S0(200,35},  E0(202},  Z0(202),  IV(200,35}, 

1  ITE1(35},  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35},  C2(35),  C3(35},  XC(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1, 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 
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5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 ,35 ) ,  SOPRB( 200 , 35} , 

6  NQSTA,  ZQSTA(35),  PCQ1(35},  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35}, 

7  QQ3(35),  QQ4(35),  PCS1(35},  PCS2(35},  DSURFOS),  RDQ,  ROSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLORG,  IDRGPLT( 200 , 35} , 

9  SECORG(35},  FINE1 ,  FIIIH2,  I  SRC,  JSRC,  KSRC,  ZSOURCE,  YSOORCS, 
t  ZSOURCE 

COMMON  /NAC/  SCAL2,  ANGALPHA,  AB(4),  AM(5},  X(5},  Y(5},  Z(5},  U(5) 

1  ,  V(5},  W(5),  ZMAZ,  XM1,  ZM1 ,  H,  H2,  A(3,3},  OX,  DY,  DZ,  DZ2 , 

2  BALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30},  CNS(5},  ZSTAT(30},  PI,  ZSPL(30},  ZSPL1(30},  ZSPL2(30),  YSPL1 

4  (30},  YSPL2(30},  R(30,30),  THETA(30 ,30} ,  ZPL(250},  YPL(250},  ZPL( 

5  250),  YA 

COMMON  /NAC1/  ZM,  ZM,  MZ,  MY,  MZ,  CHORD 0 ,  YSERNK(10},  ZSHRNKdO}, 
1  CL 

COMMON  /DIM/  RZ,  RY,  RZ ,  FDIM 

IF  (ZCMP.GT.ZM)  THEN 

ZPHSaSCALZ*  ( ZM-i-  ( ZCMP-ZM }  /SORT ( 1  -  (  ( ZCMP-ZM}  /ZM1 }  •*2  }  } 

ELSE 

IF  (ABS(ZCMP-ZSHRNK(3)} .LT.ZSHRNK(4)}  THEN 

CALL  SHR  (T1,ZCMP,ZSHRNX,0. } 

ZPHSaSCALZ«T1 

ELSE 

ZPHS>SCALZ*ZCMP 

ENDIF 

END  IF 

IF  (ZCMP.LT.-ZM)  THEN 

T1«ZCMP+ZM 

T2«-ZM+T1/SQRT(1-(T1/ZM1}»»2} 

ELSE 

IF  (ZCMP.GT.ZM)  THEN 

T1»ZCMP-ZM 

T2-XM+T1/SQRT(1-(T1/ZM1}»»2} 

ELSE 

T2>ZCMP 

ENDIF 

ENDIF 

IF    (ABS(YCMP-YSHRNK(3)  )  .LT.YSHRN1C(4}}    THEN 

CALL  SHR  (T3,YCMP,YSHRNK,1. ) 

ELSE 

T3».5»YCMP/SQRT( 1-YCMP»»2) 

ENDIF 

T 1 ■ 1 + ( ZCMP+XMAZ ) /DZ 

I»INT(T1 ) 

IF  ( (T1-I) .GT.0.0)  I»I+1 

T1-K1+ZCMP/DZ 

K-INT(T1} 

IF  ( (Tl-K) .GT.O.O)  K-K+1 

HI-  (  -ZMAZ-f  ( I-  1  )  •DZ-ZCMP  }  /DZ 

HII-1-HI 

HK«( (K-K1 ) ♦DZ-ZCMP }/DZ 

HKK«1-HK 

T3«T3+HKK»(HII»S0(I,K)+HI»S0(I-1,K}}+HK»(HII»S0(I,K-1)+HI»S0(I-1,K 
1  -1}) 

T4- ( T2»»2-T3**2 ) •SCAL2 
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T5»SCAL»T2»T3 

T6-ZPHYS(K)-ZPHS 

T7»ZPHS-ZPHYS ( K- 1 ) 

IT    (T6.LT.T7)  THEN 

T8».5*T6»T6 

T9«XC(!C)-T6*XZ(K)+T8»XZZ(K) 

TlO-YC(K)-T6»YZ(lt)+T8»yZZ(K) 

ELSE 

T8».5*T7»T7 

T9«XC(K-1)+T7»XZ(K-1)+T8»XZZ(K-1) 

T1 0 -YC ( K- 1 ) +T7» YZ ( K- 1 ) +T8*YZZ ( K- 1 ) 

ENDir 

XPHS-T9+T4 

YPHS-T10+T5 

END 


SUBROaTINE  AOMCOEF  (AB,AM,H) 

THIS  ROUTINE  COMPUTES  THE  ADAMS-BASHFORTH-MOULTON  COEFFICIENTS 

DIMENSION  AB(4),  AM(5) 

Afi(4)«H*55/24 

AB(3)— H*5/24 

AB{2)»H*37/24 

AB(1)»-H»9/24 

AM(5)»H*9/24 

AM(4}-H*19/24 

AM(3)— H*5/24 

AM(2)>H/24 

END 


SUBROUTINE  JAC  (XCMP,YCMP,ZCMP) 
C      THIS  ROUTINE  COMPUTES  THE  JACOBIAN  MATRIX  FOR  THE  MAPPING 
C      FROM  THE  COMPUTATIONAL  DOMAIN  TO  THE  PHYSICAL  DOMAIN. 

COMMON  G(200,35,35),  S0(200,35),  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1 ,  QPRE( 200 , 35) ,  SOPRE( 200 , 35 ) , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 200 , 35 ) , 

9  SECDRG(35),  FINH1,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURC,  YSOURCE, 
t  ZSOURCE 

COMMON  /NAC/  SCAL2 ,  ANGALPHA,  AB(4),  AM(5),  X(5},  Y(5),  Z(5),  U(5} 

1  ,  V(5),  W(5),  XMAX.  XM1,  ZM1 ,  H,  H2,  A(3,3),  DX,  DY,  DZ ,  DX2, 

2  HALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2 ,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA( 30 ,30 ) ,  XPL(250),  YPL(250),  ZPL( 

5  250),  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ ,  CHORD  0 ,  YSHRNK(IO),  ZSHRNKdO), 
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1  CL 
COMMON  /DIM/  RX,  RY,  RZ ,  FDIM 
IF  (ZCMP.GT.ZM)  THEN 
T1  ■SQIIT  ( 1  -  (  ( ZCMP-ZM )  /ZM1 )  ♦•2  ) 
ZST-ZM+ ( ZCMP-ZM ) /T1 
ZCByZST»T1»*3 
ELSE 

ir  (ABS(ZCMP-ZSHRNK(3)).LT.ZSHRNK(4))  THEN 
CALL  SHR  (ZST,ZCMP,ZSHRNK,0. ) 
CALL  DSHR  (T1 ,ZCMP,ZSHRNK, 0 . ) 
ZCBYZSTa1/Tl 
ELSE 

ZST-ZCMP 
ZCBYZSTal.O 
END  IF 
END  IF 

ZPES-SCALZ*ZST 
IF  (XCMP.LT.-XM)  THEN 
T1-XCMP+XM 

T2»SQRT( 1-(T1/XM1 )**2) 
XST--XM+T1/T2 
XCBYXST»T2*»3 
ELSE 

IF  (XCMP.GT.XM)  THEN 
T1-XCMP-XM 

T2*SQRT( 1-(T1/XM1 )»»2) 
XST»XM+T1/T2 
XCBYXST«T2**3 
ELSE 

XST'XCMP 
XCBYXST-1. 
END  IF 
ENDIF 

IF  (ABS(YCMP-YSHRNK(3)  )  .LT.YSHRN1C(4)  )  THEN 
CALL  SHR  ( YST , YCMP , YSHRNK , 1 . ) 
CALL  DSHR  (T2 , YCMP, YSHRNK, 1 . ) 
YCBYYST-1/T2 
ELSE 

T2»SQRT ( 1 -YCMP»»2 ) 
YST».5»YCMP/T2 
YCBYYST»2» ( T2»*3 ) 
ENDIF 

T1  - 1  +  ( XCMP+XMAX ) /DX 
I-INT(TI) 

IF  ( (T1-I) .GT.0.0)  1*1+1 
T1«K1+ZCMP/DZ 
K»INT(T1) 

IF  ( (T1-K) .GT.0.0)  K-K+1 
HI- ( -XMAX+ ( I- 1 ) ♦DX-XCMP ) /DX 
HII-1-HI 

HK»( (K-K1 )*DZ-ZCMP)/DZ 
HKK-1-HK 

T1»HII»S0(I,K)+HI»S0(I-1,K) 
T2»HII»S0(I,K-1)+HI»S0(I-1,K-1) 
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S0T»HKX»T1+HK»T2 

T1«ZPHyS(K)-ZPHS 

T2«ZPHS-ZPHyS ( K- 1 ) 

IK  (T1.LT.T2)  THEN 

T3-XZ ( K ) -T1 •XZZ ( K ) 

T4»YZ(K)-T1»YZZ(K) 

ELSE 

T3-XZ ( K- 1 ) +T2»XZZ ( K- 1 ) 

T4»YZ(K-1)+T2»YZZ(K-1) 

ENDIF 

T5«--YST+S0T 

XMZC«SCAL2* ( XST*«2-T5«*2 ) 

YMYC-SCAL»XST*T5 

R12»(T5»»2+XST»»2)»SCAL 

XSTBYX»XST/R12 

XSTBYY-T5/R12 

XSTBYZ— (T3»XSTBYX+T4»XSTByY) 

T7«S0(I+1,K)-S0(I-1,K) 

T8»S0(I,K)-S0(I-2,K) 

T9«S0(1+1,K-1)-S0(1-1,K-1) 

T10»S0(I,K-1)-S0(I-2,K-1) 

SOX» ( . 5/DX) ♦ (HKX» (HII*T7+HI»T8 ) +HK» (HII*T9+HI»T1 0 ) ) ♦XCBYXST 

T7-S0(I,K+1)-S0(I,K-1) 

T8»S0(I,K)-S0(I,K-2) 

T9-S0(I-1,K+1)-S0(I-1,K-1) 

T10-S0(I-1,K)-S0(I-1,K-2) 

SOZ- ( . 5/DZ ) ♦ ( HII» ( HKX»T7+HK»T8 ) +HI» ( HKK»T9+HK»T1 0 ) ) •ZCBYZST 

YSTBYX*- ( XST» ( SOX ) +T5 ) /R1 2 

YSTBYY* ( XST- S0X»T5 ) /R1 2 

YSTBYZ»-S0Z/SCALZ-S0X»XSTBYZ+XSTBYY»T3-XSTBYX»T4 

ZSTBYXaO.O 

ZSTBYY"0.0 

ZSTBYZ-1./SCALZ 

A  ( 1 , 1 ) "XCBYXST^XSTBYX 

A(  1 , 2 ) aYCBYYST»YSTByX 

A(  1 ,  3 ) -ZCBYZSTAZSTBYX 

A  (  2 , 1) ■XCBYXST^XSTBYY 

A  ( 2 , 2 ) ■ YCBYYST^YSTBYY 

A(  2  ,  3 } »ZCBYZST*ZSTBYY 

A(  3  ,  1) »XCByXST»XSTBYZ 

A ( 3 , 2 ) ■ YCBYYST^YSTBYZ 

A  (  3  ,  3 ) -ZCBYZST^ZSTBYZ 

END 


SUBROUTINE  SPLCMP  (C,X, YZ.KENO) 
C      THIS  ROUTINE  CONTROLS  THE  COMPUTATION  OF  THE  SPLINE 
C      WHICH  INTERPOLATES  POINTS  ON  A  STREAMLINE.  THE  MOMENTS 
C      OF  THE  SPLINE  ARE  RETURNED  IN  ARRAY  C. 
C      THE  FIRST  DERIVATIVE  IS  ZERO  AT  THE  DOWNSTREAM  END. 
C      AT  THE  UPSTREAM  END  THE  FIRST  DERIVATIVE  IS  COMPUTED 
t      FROM  THE  DATA  USING  A  FOURTH  ORDER  DIFFERENCE. 

DIMENSION  C(30},  X(30>,  YZ(30),  H(30),  A(30,3} 
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DO  10  K»1,XSND-1 
10  H(1C)-X(K+1;'Z(K) 

C(1)-((yZ(2)-YZ(1))-(3»(yZ(2)-yZ(1))-1.5*(YZ(3)-YZ(1))+(YZ(4)-YZ(1 
1  ))/3))/H(1) 

C(KEND)»(Yr!(KHND-1)-YZ(KEND))/H(KEND-1) 

A(1,2)-H(1)/3 

A(1,3)«H(1)/6 

A ( KEND , 2 ) "H ( KEND- 1 ) /3 

DO  20  K>2,KEND-1 

A(K,2)«(H(K-1)+H(K))/3 

A(K,3)-H(K)/6 
20  C(K)«(YZ(K+1)-YZ(K))/H(K)-(YZ(K)-YZ(K-1))/H(K-1) 

CALL  SPLrCT  (A,KEND) 

CALL  SPLSLV  (A.C.KEND) 

END 


SUBROUTINE  SPLEV  (C,X, YZ,XEV, YZEV.KEND) 
C      THIS  ROUTINE  EVALUATES  THE  INTERPOLATING  SPLINE  FUNCTION 
C      AT  THE  POINT  XEV.  THE  VALUE  IS  RETURNED  IN  YZEV. 

DIMENSION  C(30),  X(30},  YZ(30) 

00  10  K>2,KEND 
10  IT    (XEV.LE.X(K))  GO  TO  20 
20  K»K-1 

H»X(K+1)-X(K) 

B»yZ(K)-C(K)*H»H/6 

A»-(B/H+C(K+1 )»H/6-YZ(K+1 )/H) 

yZEV»B+( (X(K+1)-XEV)»»3)*C(K)/(6»H) 

yZEV»yZEV+(XEV-X(K))»(A+C(X+1)»( (XEV-X(K) )»*2)/(6*H) ) 

END 


SUBROUTINE  SPLFCT  (A,N) 
C      THIS  ROUTINE  DOES  GAUSSIAN  ELIMINATION  ON  THE  TRIDIAGONAL 
C      MATRIX  A,  AND  STORES  THE  MULTIPLIERS  IN  A(K,1). 

DIMENSION  A (30, 3} 

DO  10  K>2,N 

A(K,1)-A(K-1,3)/A(K-1,2) 
10  A(K,2)*A(K,2)-A(K,1)»A(K-1,3) 

END 


SUBROUTINE  SPLSLV  (A.C.N) 
C      THIS  ROUTINE  DOES  THE  BACK  SUBSTITUTION.  C  CONTAINS 
C      THE  RIGHT-HAND  SIDE  WHEN  THE  ROUTINE  IS  ENTERED,  AND 
C      IT  CONTAINS  THE  SOLUTION, AFTER  THE  CALCULATION. 

DIMENSION  A (30,3) ,  C(30} 

DO  10  K-2.N 
10  C(K)-C(K)-A(K,1)*C(K-1) 

C(N)-C(N)/A(N,2} 

DO  20  K»N- 1,1,-1 
20  C(K)-(C(K)-A(K,3)»C(K+1))/A(K,2) 

END 
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SUBROUTINE  STAG  (X1,Y1,Z1) 

THIS  ROUTINE  LOCATES  THE  STAGNATION  POINT 

COMMON  G( 200, 35 „ 35),  S0(200,35).  E0(202},  ZD(202),  IV(200,35), 

1  ITE1{35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35},  B3(35},  ZPEYS(35),  C1(35},  C2(35},  C3(35),  ZC(35) 

3  ,  X2(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1 ,  QPRE( 200 , 35) ,  SOPRE( 200 , 35 ) , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35],  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  0SUR7(35),  RJ3Q,  RDSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLORG,  IDRGPLT( 200 ,35 ) , 

9  SECDRG(35),  FINH1 ,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCB,  YSOURCB, 
S  ZSOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2,  ANGALPHA,  AB(4),  AM(5),  X(5),  Y(5),  Z(5),  U(5) 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2 ,  A(3,3}.  DX,  DY,  DZ,  0X2, 

2  HALFLA6,  XSTOP,  K1 ,  K2 ,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30},  THETA(30 ,30 ) ,  XPL(250),  YPL(250),  ZPL( 

5  250),  YA,  CL 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  K2,    CHORD  0 ,  YSHRNKdO),  ZSHRNK(IO) 

COMMON  /DIM/  RX,  RY,  RZ ,  FDIM 

DOX-CEORDO/20 

DDYsDDX 

DDZaDDX 

I FLAG* 1 

X0*XSOURCE 

YO-YSOURCE 

ZO'ZSOURCE 

QQ0-100 

DO  10  I»1,10 

XO>XO-DDX 

CALL  PHSCMP  (XO,YO,ZO,XX,YY,ZZ) 

CALL  SPEED  (XX,  YY,ZZ,UU,  W,WW,  IFLAG) 

QQT«UU**2+W»*2+WW»»2 

IF  (QQT.LE.QQO)  THEN 

QQOaQQT 

XT-XO 

ENDIF 

10  CONTINUE 

XO»XT 

DO  30  ITM«1,2 
DO  20  I«-5,5 
XT>XO-i-I*DDX 
DO  20  J»-5,5 
YT«YO+J»DDY 
DO  20  K>-5,5 
ZT«ZO-t-K«DDZ 

CALL  PHSCMP  (XT,YT,ZT,XX,YY,ZZ) 
CALL  SPEED  (XX,  YY.ZZ.UU,  W.WW,  IFLAG) 
QQT»UU*»2+VV»*2+WW»»2 
IF  (QQT.LE.QQO)  THEN 

QQOaQQT 
XI -XT 
Y1-YT 
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Z1»ZT 

END  1 7 
20  COKTINUZ 

X0-X1 

YO»yl 

Z0»Z1 

DOX».2*ODZ 

DDY«.2*DDY 

DDZ».2*00Z 
30  CONTINUE 

CALL  PHSCMP  (X1,Y1,Z1,XX,YY,ZZ) 

CALL  SPEED  (XX, YY.ZZ.UU, W.WW.IFLAG) 

WRITE  (6,40)  aU,W,WW 

40  FORMAT  ('VELOCITY  AT  SPEED  MINIMUM' ,3F10 . 6 ) 
END 


SUBROUTINE  SFT  (R,THETA,N,K) 
C      THIS  ROUTINE  COMPUTES  A  TRIG  INTERPOLANT  FOR  THE 
C      FUNCTION  R(THSTA).  THE  THETA  VALUES  ARE  NOT 
C      EVENLY  SPACED.  N  IS  THE  EUTMBER  OF  SAMPLE  POINTS. 
C      K  IS  THE  INDEX  OF  THE  X  STATION.  THE  COEFFICIENTS 
C      ARE  PLACED  IN  R(»,K),I.E.  THE  SAMPLE  FTTNCTION 
C      VALUES  ARE  REPLACED.  FIRST, THE  MATRIX  IS  SET  UP. 

DIMENSION  R(30,30),  THETA( 30 , 30 } ,  A(30,30),  B(30) 

INTEGER  ROW (30) 

DO  10  I»1,N,2 

DO  10  J»1,N 
10  A ( J, I) "COS ( .5*(I-1)*THETA(J,K)) 

DO  20  I»2,N-1,2 

DO  20  J«1,N 
20  A(J,I)«SIN( .5*I»THETA(J,K) ) 

DO  30  J«1,N 
30  ROW(J)»J 
C      GAUSSIAN  ELIMINATION. 

DO  70  J»1,N 
C      FIND  THE  PIVOT  ELEMENT 

JPIV»J 

XM>ABS(A(ROW( J) , J) ) 

DO  40  JJ»J+1,N 

TMP»ABS(A(ROW( J) , JJ) ) 

IF  ( TMP . GT . XM )  THEN 

XM>TMP 

JPIV-JJ 

ENDIF 
40  CONTINUE 

JJaROW(J) 

ROW ( J ) -ROW ( JPI V ) 

ROW(JPIV)«JJ 
C      DO  THE  ELIMINATION 

DO  60  JJ-J+1 ,N 

XMULT»A(ROW( JJ) , J)/A(ROW( J) ,J) 
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DO  50  JJJ»J+1,H 
50  A(ROW( JJ) , JJJ)»A(ROW( JJ) , JJJ)-XMULT«A(ROW( J) , JJJ) 
60  R(ROW(  JJ)  ,1C)»R(R0W(JJ),K)-XMULT»R(R0W(J),K) 
70  CONTINUE 

DO  THE  BACK  SUBSTITUTION 

B(N}-R(ROW(N),K}/A(ROW(N} ,N) 

DO  90  J»N-1,1,-1 

TMP-0 

DO  80  JJ>J-»-1,N 
80  TMP»TMP+A(ROW(J) ,JJ)»B(JJ) 
90  B( J)-(R(ROW( J) ,K)-TMP)/A(ROW( J) ,J) 

STORE  THE  COEFPICIENTS 

DO  100  J»1,N 
100  R(J,K)«B(J) 

END 


SUBROUTINE  FR  (ANG.RADIUS ,R,NSTREAM, I) 
EVALUATE  TRIGONOMETRIC  INTERPOLANT 
DIMENSION  R(30,30} 
RADIUS»R(1,I) 
DO  10  K»2, (NSTREAM-1) ,2 
10  RADIUS>RADIUS-«-R(K,I)*SIN(  .  5«K*ANG) -t-RtK-t-l  ,I}*COS(  .5*K*ANG} 
END 


SUBROUTINE  DFR  ( ANG , DRAD , R , NSTREAM , I ) 
EVALUATE  DERIVATIVE  O?  TRIG  INTERPOLANT 
DIMENSION  R(30,30} 
DRAD>0 

DO  10  K»2,(NSTREAM-1) ,2 
10  DRAD»DRAD-f  .5*K*(R(K,I}*C0S(  .  5*K*ANG)-R(K4-1 ,1}  *SIN(  .  5*K*ANG}  ) 
END     - 


SUBROUTINE  SHCKPLT  ( ITMP.INOENG) 

PLOT  SHOCK  USING  WAVE  DRAG  INTERGRAND 

COMMON  G( 20 0,35, 35) ,  80(200,35),  E0(202},  Z0(202),  IV(200,35), 

1  ITE1(35},  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  3:Z(35),  X22(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA ,  FMACH , 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 , 35) ,  SOPRE( 200 ,35) , 

6  NQSTA,  ZQSTA(35),  PCQ1(35},  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  004(35),  PCS1(35),  PCS2(35),  DSURP(35),  RDQ,  RDSO,  POO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDR6PLT( 200 , 35 ) , 

9  SECDRG(35),  FINH1,  FINH2,  ISRC,  JSRC,  KSRC,  ZSOURCE,  YSOURCE, 
$  ZSOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2 ,  ANGALPHA,  AB(4),  AM(5),  Z(5),  Y(5),  Z(5),  U(5) 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2,  A(3,3),  OZ,  DY,  DZ,  DZ2, 

2  HALFLAG,  ZSTOP,  K1 ,  R2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 
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3  30),  CNS(5),  XSTAT(30),  PI,  X:SPL(30),  ZSPL1(30),  ZSPL2(30),  YSPLI 

4  (30),  ySPL2(30),  R(30,30},  THETA(30,30 ) ,  ZPL(250),  YPL(250),  ZPL( 

5  250),  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ,  CHORD 0 ,  YSHRHXdO),  ZSHRNXdO), 
1  CL 

COMMON  /DIM/  RX,  RY,  RZ,  FDIM 

COMMON  /SHCKPLT/  SCALL,  SHFTALL,  SHFTX 

DIMENSION  XR(200),  YR(200),  CP(200),  TSYM(7) 

CHARACTER* 60  CHR 

CALL  FRAME 

GENERATES  THREE  DIKZSNSIONAL  PLOTS 

SCALL- . 6 

SHFTALL» 1 0 . 5» (1 -SCALL ) 

SYAW»SIN(PI»YA/180) 

LX«(MX-1)/2+1 

IF  (XSCAL.NE.O. )  SCALXa . 5«ABS(XSCAL) /CHORD 0 

IF  (PSCAL.GE.O. )  SCALX>5./(ZPHYS(KTE2)-ZPHYS(KTE1) ) 

SCALP— 1.00 

IF  (PSCAL.NE.O. )  SCALP>-.5/ABS(PSCAL) 

TX«4 . 

SX— SCALX*XC  ( KTE1  ) 

ASRAT*2 . ♦ ( ZPHYS (KTE2 ) -ZPHYS (KTE1 ) ) ••2/AWING 

IF  (KTE2.LT.10)  THEN 

XINC>1 

K*3 

ELSE 

KINC*2 

DO  10  K*KSRC,4,-2 

IF  (K.LE.4)  GO  TO  20 
10  CONTINUE 
20  CONTINUE 

ENDIF 

NSHFLAG>0 

DO  60  K«K,KTE2,KINC 

I1»ITE1 (K) 

I2»ITE2(K) 

CALL  VEL  (K,CP,XR,YR) 

IF  (NSHFLA6.EQ.0)  THEN 

NSHFLAG'1 

SHFTX*SCALL» ( 5 . 5-SCALX*XR ( LX) -SX-TX) 

ENDIF 

SYaS . 4* ( ZPHYS (K) -ZPHYS (KTE1 ) ) / ( ZPHYS ( KTE2 ) -ZPHYS ( KTE1 ) ) +2 . 45 

SCP»5 . 4* ( ZPHYS ( K ) -ZPHYS ( KTE 1 ) ) / ( ZPHYS ( KTE2 ) -ZPHYS ( KTE 1 ) ) +2 . 75 

DO  30  I»I1,I2 

XR  ( I )  aSCALL*  ( SCALX*XR  ( I )  -t-SX )  -t-SHFTALL-^ SHFTX 

YR  ( I )  -SCALL*  ( SCALX*YR(  I )  ■►SY )  -t-SHFTALL 
30  CP ( I ) -SCALL* ( SCALP*CP ( I ) +SCP ) +SHFTALL 

N-I2-LX+1 

CALL  MLINE  (XR(LX) ,CP(LX) ,N, 1 , 0 ,2 , 0 . , 1 . , 0 . , 1 . ) 

N-I2-I1+1 

DO  40  1-11,12 
40  XR(I)-XR(I)-i-TX*SCALL 

N-I2-I1+1 

CALL  MLINE  (XR( 11 ) , YR{ II ) ,N, 1 , 0 ,2, 0 . , 1 . , 0 . , 1 . ) 
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IF  (K.EQ.KSRC)  THEN 

DO  50  I»1,21+ITMP 

XPL ( 1 ) ■SCALL* ( SCALX»XPL ( I ) +  SX+TX ) +SH7TALL+SH7TX 
50  YPIj  ( I )  -SCALL*  (  SCALX^YPL ( I )  +SY )  +SHFTALL 

IF  ( INOENG . NZ . 1 )  THEN 

CALL  MLINE  (XPL, YPL,21+ITMP, 1 , C ,2, 0 . , 1 . , 0 . , 1 . ) 

END  IF 

IF  (YSOORCE.GT.O.O)  THEN 

IEXT-ITE2 ( KSRC ) -4 

ELSE 

IEXT»ITE1 (KSRC) +4 

ENDIF 

yR(1)-YR(IEXT) 

XR(1)»XR(IEXT) 

IB-1 

IF    ( ySOtmCE .  GT .  0  )    IB»-1 

YR  (  2  )  -  YPL  (  6+ (  9+ITKi> )  ♦  ( 1  -  IB ) /2 ) 

XR(2)»XPL(6+(9+ITMP)»( 1-IB)/2) 

IF  ( INOENG . NB . 1)  THEN 

CALL  MLINE  (XR, YR, 2, 1 , 0 ,2, 0 . , 1 . , 0 . , 1 . } 

ENDIF 

ENDIF 
60  CONTINUE 

CALL  DRG  (1,SCALX) 

ENCODE  (60,70,TSYM}  FMACH , CL , VOLDRG , ASRAT 

CALL  SETLCH  (4.5,4.0,1,0,1,0) 

CALL  CRTBCD  (TSYM,7) 

ENCODE  (60,80,TSYM) 

CALL  SETLCH  (4.5,4.5,1,0,1,0) 

CALL  CRTBCD  (TSYM,7) 

10-1 

70  FORMAT  ('M»',F3.2,'  ' , 2X, 'CL»' ,F3 . 2, '  ' ,2X, 'CDW-' ,F5 . 4 , '  ',2X,'A«',F3 

1  .1) 
80  FORMAT  ('UPPER  SURFACE  PRESSURE' , 5X, 'WING  AND  SHOCKS') 
END 


SUBROUTINE  VEL  (K.CP.XR.YR) 
CALCULATES  SURFACE  VELOCITY 
COMMON  G( 200, 35,35 ) ,  S0(200,35),  E0(202},  Z0(202),  IV(200,35}, 

1  ITE1(35),  ITB2(35),  A0(200),  A1(200),  A2(200),  A3(200},  B0(35), 

2  B1(35),  B2(35),  B3(35),  2PHYS(35),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTB2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  in3ES,  TSTEP,  EPS1,  QPRE(200 , 35 ) ,  S0PRE( 200 ,35 ) , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35). 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35).  DSURF(35},  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 200 , 35) , 

9  SECDRG(35},  FINH1,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCE,  YSOURCE, 
•  ZSOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2,  ANGALPHA,  AB(4),  AM(5),  X(5),  Y(5),  Z(5),  U(5} 
1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2,  A(3,3),  DX,  DY,  DZ,  DX2,' 
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2  HALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA(30,30) ,  XPL(250),  YPL(250),  ZPI,( 

5  250)  ,  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ,  CHORDO,  YSERNKdO),  ZSHRNKdO), 
1  CL 

COMMON  /DIM/  RX,  RY,  RZ,  FDIM 

COMMON  /SHCKPLT/  SCALL,  SHFTALL,  SHFTX 

DIMENSION  CP(200},  XR(200),  YR(200),  DYK(200) 

I10-ITE1(KTE1) 

I20»ITE2(KTE1) 

00  10  KDnM>KTE1,KTE2 

I10»MIN0(I10,ITE1 (KDUM) ) 

I20-MAX0(I20,ITE2(KDUM) ) 
10  CONTINUE 

J»MY-1 

Q1».2*FMACH**2 

T1»1./( .7*FMACH»»2) 

DO  20  1*110,120 

FE>AO(I)*AO(I)-t-SO(I,K}*SO(I,K) 

H>0. 

IF  (IV(I,K) .NE.O)  H«1./FH 

AZ— AO(I)*XZ(K)-SO(I,K)»YZ(K) 

BZ»-AO(I)*YZ(K)-t-SO(I,K)*XZ(K) 

DSIaS0(I+1,K)-S0(I-1,K) 

DSK»S0(I,K+1)-S0(I,K-1) 

SX*A1(I)«DSI 

SZaC1(X)*DSK 

DGI«G(I+1,J,K)-G(I-1,J,K) 

DGJ«G(I,J+1,K)-G(I,J-1,K) 

DGK»G(I,J,JC+1)-G(I,J,K-1) 

UR»A1  ( I )  *D6I-«-SX*B1  ( J )  «OGJ-i-CA*A0  ( I )  •^SA•SO  ( I  ,X) 

VR>-B1(  J}*OGJ-i-SA*A0(I)-CA*S0(I,K) 

WR>C  1  ( K )  *0GK-i-SZ«B1  ( J )  •OGJ-i-SYAW-t-CA*XZ  ( K }  -t-SAAYZ  ( K )  -t-H*  ( UR*AZ-»-VR*BZ ) 

QQ*H* ( UR*UR+VR»VR ) +WR»WR 

QQ>1.-I-Q1*(1.-QQ) 

IF  (QQ.LE. ( .0001))  QQ«.01 

CP(I)«T1»(QQ»»3.5-1. ) 

XR(I)«XC(K)+,5*SCAL»(A0(I)«A0(I)-S0(I,K)»S0(I,K)) 

YR(I)»YC(K)+SCAL»AO(I)»SO(I,K) 
20  CONTINUE 

RETURN 

END 


SUBROUTINE  DRG  (IND.SCALX) 

COMPUTES  THE  WAVE  DRAG  BY  VOLUME  INTEGRATION  OF  ENTROPY  INEQUALITY 

COMMON  G(200, 35,35)  ,  S0(200,35),  EC>(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200},  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTfi2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH , 

5  N1,  N2,  N3,  10,  NOES,  TSTEP,  EPS1,  QPRE( 200 , 35 } ,  S0PRE( 200 , 35 ) , 


-  154  - 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  HDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT(200 ,35 ) , 

9  SECDRG(35),  FIHH1 ,  FINH2,  ISRC,  JSrC,  KSRC,  XSOURCE,  YS0URC2, 
$  Z SOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2,.  ANGALPHA,  AB(4),  AM(5),  X(5),  Y(5),  Z(5),  0(5) 

1  ,  V(5),  W(5),  XMAZ,  XM1,  ZM1 ,  H,  H2,  A(3,3),  DX,  DY,  DZ,  DX2, 

2  KALFLAG,  XSTOP,  XI,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPI.1(30),  ZSPL2(30),  YSPLI 

4  (30),  YSPL2(30),  R(30,30),  THETA(30 ,30) ,  XPL(250),  YPL(250),  ZPL( 

5  250),  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ,  CHORD  0 ,  YSHRNX(IO),  ZSHRNXdO), 

1  CL 

COMMON  /DIM/  RX,  RY,  RZ,  FDIM 

COMMON  /SHCKPLT/  SCALL,  SHFTALL,  SHFTX 

DIMENSION  XXX (34),  YYY(34),  DRAG(34),  SX(200),  SZ(200),  TSYM(7) 

IF  (SCALX.EQ.0.0)  SCALX«5./(ZPHYS(KTE2) -ZPHYS(KTE1 ) ) 

TTTX»4. 

SMA6a2.0 

VOLDRG>0.0 

KY-MY- 1 

AAO- 1/ ( FMACH*FMACH ) + . 2 

SSSX*-SCALX«XC(KTE1 ) 

DX»2.»RX/(MX-1) 

OZ0»RZ/(MZ-3) 

DV0L-2.»RX»RY»RZ/( (MX-1 ) •(MY-2)»(MZ-3 ) ) 

DO  10  K»KTE1,KTE2 
10  SECDRG(K)»0. 

LX»(MX-1)/2+t 

PI-3. 1415927 

RAD-PI/180. 

ANG— 5.*RAD 

NDARK>20 

SCUT-. 02 

INDPLT»0 

SZ0»250.»(FLOAT(MX-1)/156. )**2 

DO  130  K»KTE1,KTE2 

IF  (K.EQ.KTE1)  THEN 

FACZ-.5 

ELSE 

FACZ-1. 

ENDIF 

INDPLT»INDPLT+ 1 

DO  20  J«2,KY 

XXX(J}*0. 

YYY(J)»0. 
20  DRAG(J)>0. 

SSSY-5 . 4» ( ZPHYS ( K ) -ZPHYS ( KTE1 ) ) / ( ZPHYS ( KTE2 ) -ZPHYS ( KTE1 ) ) +2 . 45 

KP-K+1 

KM-K-1 

I1«ITE1(K) 

I2-ITE2(K) 

00  50  1-11,12 

IDRGPLT(I,K)  — 1 


-  155  - 


lP-I+1 

IM-I-1 

SX(I)»A1(I)»(S0(IP,K)-S0(IM,K)) 

SZ(I)»C1(K)*(S0(I,KP)-S0(I,KM)) 

FACY» 1 . 

DO  40  J>2,KY 

IF  (J.EQ.KY)  FACY-.5 

YP»SO(I,K)+BO( J) 

FH3A0 ( I ) •AO ( I ) +YP*yP 

H«1./FH 

AZ—AO  (  I  )  •XZ  ( K )  -  YP» YZ  ( K  ) 

BZ*-AO ( I ) •YZ ( K ) +YP*XZ ( K ) 

DGI»G(IP,J,K)-G(IM,J,K) 

DGJ-G(I,J+1,K)-G(I,J-1,K) 

DGK»G(I,J,KP)-G(I,J,1CM) 

GX-A1(I}«DGI 

GY»-B1(J)*DGJ 

UR«GX-SX ( I )  •GY+CA4A0  ( I )  -t-SA'YP 

VR«GY+SA*AO ( I ) -CA»YP 

WR»(C1(K)»DGK-SZ(I)»GY+SYAW+CA»XZ(K)+SA»YZ(K)+H»(UR»AZ+VR»BZ) ) 

Aa*UR-fWR*AZ 

QXY-H* (UR»UR+VR*VR) 

QQ3QXY-<-WR*HR 

AA«OIM(AA0, .2*QQ) 

DnHM>0. 

IF  (QQ.LT.AA)  GO  TO  30 

nU"H*AU»AO 

Axx-an«A2(i) 

AQ*AA/aQ 

X JACO- ( ( 1 . +4 . ♦BO ( J ) ♦BO ( J ) ) ♦♦ 1 . 5 ) ♦DVOL/ ( 2 . ♦DZ^C 1 ( K ) ) 

DRGSS-(G(I+1,J,K)-2.^G(I,J,K)+G(I-1,J,K) )/(DX^DX) 

ORGSS* . 5^ ( ORGSS-AfiS ( DRGSS ) ) 

ROCSaFMACH«FMACH^ ( FMACH^FMACH^AA } ♦♦ 1 . 5 

0UMM>2 . ♦OX^SCAL^SCAL^ ( 1 . -AQ } ♦ROCS^AXX^ORGSS^ORGSS^SQRT ( H ) ♦XJACO 
1  /AWING 

IF  ( (ABS(K-KSRC) . LE . 4 ) .AND. (ABS( J-JSRC) .LE.4) .AND. (ABS( I-ISRC-S) 
1  . LE . 1 0 ) )  THEN 

DUMMaO . 

END  IF 

SECOND  ORDER  ACCX7RATE  VOLUME  INTEGRAL 

VOLDRG»VOLDRG+FACY^FACZ^DU«M 

SECDRG ( K ) -SECDRG ( K ) +FACY^AWING^D0MM^2^C1 ( K ) /SCAL 

IF  (J.EQ.KY)  IDRGPLT(I,K)«2000000.^DUMM 
30  IF  (IND.NE.1)  GO  TO  40 

IF  (I.LT.LX)  GO  TO  40 

XX-XC(K)+.5^SCAL^(A0(I)^A0(I)-(S0(I,K)+B0(J) )**2) 

YY-YC ( K ) +SCAL^A0 (I)^(SO(I,K)+BO(J)) 

DRAG  (  J  )  bDRAG  (  J  }  -t-DUMM 

XXX  (  J  )  bXXX  (  J  } -t-DUMM^XX 

YYY ( J ) ■ YYY ( J ) +DaMM^YY 
40  CONTINUE 
50  CONTINUE 

IF  (IND.NE.1)  GO  TO  130 

DO  60  J-2,KY 
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IF  (DRAG(J).I-T.1.E-38)  GO  TO  60 
XXX(J)-XXX(J)/DRA6(J) 
yyY(J)«YYY(J)/DRAG(J) 
60  CONTINUE 
IPREV»0 

DO  120  JJ»2,KY 
J»KY+2-JJ 
SIZEaSZO*DRAG(J) 
IF  ( SIZE. LT. SCUT)  SIZE-0. 
SIZEaSMAG»SIZE 
XCD»SCALX»XXX(J)+SSSX+TTTX 
YCD»SCALX»YYY(J)+SSSY 
XL»XCD-SIZE»COS(ANG) 
yL»YCD-SIZE»SIN(ANG) 
IF  ( SIZE. LT. SCUT. AND. IPREV.EQ.O)  GO  TO  110 

IF  (J.EQ.KY)  GO  TO  110 

IF  ( IPREV.EQ.  LAND.  SIZE.  GE.  SCUT)  GO  TO  80 

IF  (SIZE. LT. SCUT)  GO  TO  70 

XX-2.»{XXX(J)-XC(K))/SCAL 

YY»2 . ♦ ( YYY( J ) -YC(K) ) /SCAL 

RR-SQRT(SQRT(XX»XX+YY»YY) ) 

THET ■ . 5 ♦AT AN ( YY/XX ) 

XX=RR*COS(THET) 

YY»RR*SIN(THET) 

YY-YY-B0(J)+B0(J+1) 

XCD0«XC(K)+.5»SCAL*(XX»XX-YY»YY) 

YCDOaYC ( K ) +SCAL*XX»YY 
XCDO»SCALX»XCDO+SSSX+TTTX 
YCDO-SCALX»YCDO+SSSY 
XLO-XCDO 
YLO»YCDO 
GO  TO  80 
70  XX»2.*(XXX(J+1)-XC(K))/SCAL 
YY-2.*(YYY(J+1)-YC(K) )/SCAL 
RR» SORT ( SORT ( XX»XX+YY»YY ) ) 
THET» . 5 • ATAN ( YY/XX ) 
XX»RR*COS(THET) 
YY«RR»SIN(THET) 

YY-YY-BO ( J+ 1 ) +B0 ( J ) 

XCD»XC(K) + . 5*SCAL» (XX»XX-YY»YY) 

YCD-YC(K)+SCAL»XX»YY 
XCD»SCALX»XCD+SSSX+TTTX 
YCD*SCALX»YCD+SSSY 
XL*XCD 
YL-YCD 
80  CONTINUE 

IF  (KTS2.IiT.10)  GO  TO  90 

IF  (MOD(INDPLT-KSRC+1,2).EQ.O)  GO  TO  110 
90  CONTINUE 

DO  100  L« 1 , NOARK 

FAC»FLOAT ( L ) /FLOAT ( NDARK ) 

XXI -SCALL» ( FAC»XCD+ ( 1 . -FAC ) •XCDO ) +SHFTALL+SHFTX 

YY1 -SCALL* ( FAC»YCD+ ( 1 . -FAC ) ♦YCDO ) +SHFTALL 

XX-SCALL* ( FAC»XL+ ( 1 . -FAC ) ♦XLO ) +SHFTALL+SHFTX 
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YY-SCALL*  (  FAC»yL+  ( 1 .  -FAC )  ♦YLO  )  +SHFTALI. 

XX-XX1 + . 5» ( XX-XX1) 
100  CALL  LINE  (XXI , YYI ,XX, YY) 
110  IPREV-0 

IF  ( SIZE. GE. SCUT)  IPREV-1 

XCDO'XCD 

YCDO-YCD 

XLO-XL 

YLOaYL 
120  CONTINUE 
130  CONTINUE 

RETURN 

END 


SUBROUTINE  SHR  ( STAR,C,SHRNK, YZFLA6) 
C      THIS  ROUTINE  MAPS  COMPUTATIONAL  COORD  C   TO 
C      SHEARED  SQUARE  ROOT  COORD   STAR   WEEN  TEE  MAPPING  IS 
C      SHRUNK  NEAR  THE  NACELLE  SOURCE. 

DIMENSION  SHRNKCIO) 

X«(C-SHRNK(3) )/SHRNK(4) 

STAR»SHRNK( 5 ) ♦X* ( { 1 . -X»X) •♦3 ) 

IF  (YZFLAG.EQ.1. )  THEN 

STAR»STAR+.5»C/SQRT(1 .-C*C) 

ELSE 

STAR»STAR+C 

ENOIF 

END 


SUBROUTINE  INVSH  ( STAR, C , SHRNK, YZFLAG) 

NEWTON  ITERATION  TO  INVERT  THE  FUNCTION  IN  SUBROUTINE  SHR 
DIMENSION  SHRNKdO) 
IF  (YZFLAG.EQ.1.)  THEN 
C»2 . ♦STAR/SQRT( 1 . +4 . ♦STAR^STAR^ 
ELSE 
C»STAR 
ENDIF 
10  CALL  SHU  (F,C,SHRNK,YZFLAG) 
CALL  DSHR  (DF,C, SHRNK, YZFLAG) 
-  C='C-(F-STAR)/DF 

IF  (ABS(F-STAR) .GT. ( .000000001))  GO  TO  10 
END 


SUBROUTINE  DSHR  (D , C , SHRNX, YZFLAG) 

THIS  ROUTINE  COMPUTES  THE  DERIVATIVE  OF  THE  MAPPING  IN  SHR 

DIMENSION  SHRNXdO) 

X«(C-SHR?7K(3)  )/SHRNK(4) 

D-(SHRNK(5)/SHRNX(4) )♦( ( 1 . -X»X) ♦♦2 ) • ( 1 . -7 . ♦X^X) 

IF  (YZFLAG.EQ.1.)  THEN 
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S»SQRT(1.-C»C) 

D>0v.5/(S*S*S} 

ELSE 

D-D+1 

END  IF 

EKD 


SUBROUTINE  SECTIONY  ( YSEC, YCENT,ZCENT,NSTREAM,IEND,ISTART) 

LOCATE  NACELLE  SECTION  Y-CONST 

COMMON  G(200,35.35),  S0(200,35),  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHYS(35),  C1(35),  C2(35).  C3(35),  XC(35) 

3  ,  XZ{35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1, 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NOES,  TSTEP,  EPS1,  QPRE( 200 ,35 ) ,  SOPRE( 200 ,35 } , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSURK(35),  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT(200 ,35) , 

9  SECDRG(35),  FINH1 ,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCE,  YSOURCE, 
$  ZSOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2 ,  ANGALPHA,  AB(4),  AM(5),  X(5),  Y(5),  Z(5),  U(5) 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2 ,  A(3,3),  DX,  DY,  DZ ,  DX2 , 

2  HALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA(30,30 ) ,  XPL(250),  YPL(250),  ZPL( 

5  250),  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ,  CHORISO ,  YSHRNKdO),  ZSHRNXdO), 
1  CL 

COMMON  /DIM/  RX,  RY,  RZ,  FDIM 

IF  (YSEC.GE.YCENT)  THEN 

ANG>.5*PI 

ELSE 

ANG—.5*PI 

ENDIF  / 

YDIFaYSEC-YCENT 

DO  10  I-1,IEN0 

CALL  FR  (ANG,RAD,R,NSTREAM,I) 
10  IF  (RAD.GT.ABS(YDIF))  GO  TO  20 
20  CONTINUE 

ISTART-I 

DO  50  I»ISTART,IEND 

XSPL ( 1 +I-ISTART ) "XSTAT ( I ) 

ANG-O 
30  CALL  FR  ( ANG , RAO , R , NSTREAM , I ) 

CALL  DFR  ( ANG, DRAO,R, NSTREAM, I) 

SINANG-SIN ( ANG ) 

TMP1»RAD»SINANG-YDIF 

TMP2-0RAO*SINANG-RAO*C0S ( ANG) 

ANG-ANG-TMP1/TMP2 

IF  (TMP1.GE. ( .0000002) )  GO  TO  30 

ZSPL1(1-M-ISTART)-ZCENT-RAO*C0S(ANG) 

ANG-PI 
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40  CALL  FR  (AnG,RAO,R,NSTREAM,I) 

CALL  DFR  (ANG,DRAD,R,NSTREAM,I) 

SINAlTGaSIN(ANG) 

TMP1«RAD»SINANG-YDI7 

THP2>DRAO*SINANG-RAD*C0S ( ANG) 

ANG-ANG-TMP1/TMP2 

IF  (TMP1.GE. ( .0000002)}  GO  TO  40 
50  ZSPL2(1+I-ISTART)»ZCENT-RAD»C0S(ANG) 

00  60  I-ISTART,IENO 

2SPL1 ( 1+I-ISTART)-ZSPL1 ( 1+IEND-ISTART) 
60  ZSPL2(1+I-ISTART)»2SPL2( 1+IEND-ISTART) 

CALL  SPLCMP  (C,XSPL,ZSPL1,IEND-ISTART+1) 

CALL  NOSCMP  (CNS,XSPL,ZSPL1 ,ZSPL2 ,ZSTAG) 

END 


SOBROUTINB  SECTIONZ  (ZSEC,yCENT,ZCENT,NSTREAM,IEND, ISTART) 

LOCATE  NACELLE  SECTION  Z»CONST 

COMMON  G( 200, 35, 35),  S0(200,35),  E0(202),  Z0(202},  IV(200,35), 

1  ITE1(35},  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  ZPHyS(35),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  yC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 , 35 ) ,  SOPREC 200 , 35 ) , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NOQ,  IQ,  KQ,  AWING,  VOLDRG, . IDRGPLT( ?00 , 35 ) , 

9  SECDRG(35),  FINH1 ,  FINH2,  ISRC,  JSRC,  KSRC,  XSOtTRCE,  YSOURCB, 
$  ZSOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2,  ANGALPHA,  AB(4),  AMC5},  X(5),  Y(5),  Z(5),  n(5) 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2 ,  A(3,3),  OX.  OY,  OZ,  0X2, 

2  HALFLAG,  XSTOP,  K1 ,  K2 ,  ZTIP,  ZCA,  ZCB,  AL2 ,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA(30 ,30 ) ,  XPL(250),  YPL(250),  ZPL( 

5  250) ,  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ,  CHOROO,  YSHRNK(IO),  ZSHRNK(10), 
1  CL 

COMMON  /DIM/  RX,  RY,  RZ,  FDIM 

IF  (ZSEC.GE.ZCENT)  THEN 

ANG*PI 

ELSE 

ANG'O. 

ENDIF 

3DIF-ZSEC-ZCENT 

00  10  I*1,IENO 

CALL  FR  (ANG,RAD,R,NSTREAM,I) 
10  IF  (RAD.GT.ABS(ZDIF) )  GO  TO  20 
20  CONTINUE 

ISTART-I 

00  50  IaISTART,IENO 

XSPL( 1+I-ISTART)»XSTAT(I) 

ANG— .5«PI 
30  CALL  FR  ( ANG , RAO , R , IISTREAM ,  I ) 
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CALL  DFR  (ANG,DRAO,R,NSTREAM,I) 

C0SAN6«C0S ( AN6 ) 

TMP 1  ■  -  RAD  ♦  CO  S  ANG- ZD I F 

TMP2»-DRA0*C0SANG-»-RA0«SIN(ANG) 

ANG-ANG-TMP 1 /TMP2 

IF  (TMP1.GE. ( .0000002) }  GO  TO  30 

YSPL1 ( 1+1-ISTART)»YCENT+RAD»SIN(ANG) 

ANG-.5*PI 
40  CALL  FR  ( ANG , RAO , R , NSTREAM , I ) 

CALL  DFR  (ANG,DRAD,R,NSTREAM,I) 

COSANG*COS(ANG) 

TMP1—RAD*C0SANG-ZDIF 

TMP23-DRAD*C0SANG-i-RAD*SIN(ANG) 

ANG-ANG-TMP1/TMP2 

IF  (TMP1.GE. ( .0000002))  GO  TO  40 
50  YSPL2(1+I-ISTART)»YCENT+RAD»SIN(ANG) 

DO  60  I-ISTART.IEND 

YSPL1 (1+I-ISTART)«YSPL1 ( 1+IEND-ISTART) 
60  YSPL2(1+I-ISTART)«YSPL2( 1+IEND-ISTART) 

END 


SUBROUTINE  PLZ  ( IEND,ZSTAG, YSTAG,ZSTAG,NSTREAM) 

PLOT  GRID  IN  PLANE  Z^CONST 

COMMON  G( 200, 35, 35),  80(200,35),  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(3S),  B3(35),  ZPHYS(35),  CI (35) ,  C2(35) .  C3(35),  ZC(35) 

3  ,  XZ(35},  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1, 

4  KTE2,  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE(200 ,35 ) ,  SOPRE( 200 , 35) , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 20  0 , 35 ) , 

9  SECDR6(35),  FINH1 ,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCE,  YSOURCE, 
4  ZSOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2 ,  ANGALPHA,  AB(4),  AM(5),  X(5),  Y(5),  Z(5),  U(5) 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2,  A(3,3),  DX,  D7,  DZ ,  DX2 , 

2  HALFLAG,  XSTOP,  K1 ,  K2 ,  ZTIP,  ZCA,  ZCD,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA( 30,30 ) ,  XPL(250),  YPL{250),  7PL( 

5  250),  YA 

COMMON  /NAC1/  XH,  ZM,  MX,  MY,  MZ,  CHORDO,  YSHRNK(10),  ZSHRNKdO), 
1  CL 
COMMON  /DIM/  RX,  RY,  RZ,  FDIM 
COMMON  /PLT/  ILE,  lAX,  INOENG 
DIMENSION  TSYM(7) 
CALL  FRAME 
ENCODE  (16,50,TSYM) 
CALL  SETLCH  (1.65,2.7,1,0,1,0) 
CALL  CRTBCD  (TSYM,7) 
ENCODE  (12,60,TSYM)  ZSOURCE 
CALL  SETLCH  (1.65,2.5,1,0,1,0) 
CALL  CRTBCD  (TSYM,7) 
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T1-100 

DO  20  I«2,MZ-1 

DO  10  J»1,MY 

XPL(J-1)»xe(KSRC)+SCAL2»(A0(I)*»2-(B0(J)+S0(I,KSRC))»«2) 

XPL ( J- 1 ) ■2 . n» ( XPL ( J- 1 ) +2 . 375 ) 

yPL(J-1)»YC(KaRC)+SCAL*A0(I)»(B0(J)+S0(I,KSRC)) 
10  yPL(J-1)»2.2»(yPL(J-1)+3. ) 
20  CALL  TRACE  (XPL, YPL,MY-1 ) 

DO  40  J»2,MY 

00  30  I-2,MX-1 

XPL(I-1)«XC(KSRC)+SCAL2»(A0(I)»»2-(B0(J)+S0(1,KSRC))»»2) 

XPL (1-1) ■2. 2* (XPL (1-1) +2. 375) 

YPL ( I- 1 ) -YC ( KSRC ) +SCAL»A0 (I)*(B0(J)+S0( I ,KSRC ) ) 
30  YPL(I-1)-2.2»(YPL(I-1)+3.) 
40  CALL  TRACE  (XPL, YPL,MX-2) 

XLE>XPL(ITE1(KSRC) ) 

1LE»ITE1(KSRC) 

DO  45  I>ITE1(KSRC),ITE2(KSRC) 

IF  ( XPL ( I ) . LT . XLE )  THEN 

XLE*XPL(I) 

ILE»I 

ENDIF 
45  CONTINUE 

50  FORMAT  ( 1 6HC00RDINATE  GRID  } 
60  FORMAT  ( 7HSPAN  »  ,F5.3) 
END 


SUBROUTINE  PLY  ( IEND,XSTAG, YSTAG,ZSTA6,NSTREAM,R0 , INOBNG,KPLOT) 

PLOT  THREE  VIEWS  OF  WING  AND  NACELLE 

COMMON  G( 200, 35,35 ) ,  S0(200,35),  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200},  B0(35}, 

2  B1(35),  B2(35),  B3(35),  ZPHYS05),  C1(35),  C2(35),  C3(35),  XC(35) 

3  ,  XZ(35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 , 

4  KTE2,  ISYM,  SCAL,  SCALZ ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH, 

5  N1,  N2,  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 , 35 ) ,  SOPRE( 200 , 35 ) , 

6  NQSTA,  ZQSTA(35),  PCQ1(35),  FCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35), 

7  QQ3(35),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO ,  F30, 

8  F01,  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 200 , 35 ) , 

9  SECDRG(35),  FINHl,  FINH2,  ISRC,  JSRC,  KSRC,  XSOURCE,  YSOURCE, 
t  ZSOURCE,  STRENGTH 

COMMON  /NAC/  SCAL2 ,  ANGALPHA,  AB(4),  AM(5),  X(5),  Y(5),  Z(5),  0(5) 

1  ,  V(5),  W(5),  XMAX,  XM1,  ZM1 ,  H,  H2,  A(3,3),  DX,  DY,  DZ ,  DX2, 

2  HALFLAG,  XSTOP,  K1 ,  K2,  ZTIP,  ZCA,  ZCB,  AL2,  YCONST,  YCA,  YCB,  C( 

3  30),  CNS(5),  XSTAT(30),  PI,  XSPL(30),  ZSPL1(30),  ZSPL2(30),  YSPL1 

4  (30),  YSPL2(30),  R(30,30),  THETA( 30 ,30 ) ,  XPL(250),  YPL(250).  ZPL( 

5  250),  YA 

COMMON  /NAC1/  XM,  ZM,  MX,  MY,  MZ ,  CHORDO,  YSHRNKdO),  ZSHRNK(10), 
1  CL 
COMMON  /DIM/  RX,  RY,  RZ ,  FDIM 
COMMON  /PLT/  ILE,  lAX 
OIMENSICIil  XPLW(20)  ,  ZPLW(20),  TSYM(7) 
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CALL  FRAME 

IF  ( INOENG . EQ . 1 )  THEN 

IDOT-2 

ELSE 

IDOT-5 

END  IF 

DO  10  K»3,NZ 
10  IF  (ZPHYS(K) .LE.ZTIP)  KTIP-K 

IMAX«ITE1(3) 

IMIN«ITE1(3) 

YMAX-YC ( 3 ) +SCAL»AO ( ITE1 ( 3 ) ) ♦SO ( ITE1 ( 3 ) , 3 ) 

YMIN-YMAX 

DO  15  I-ITE1(3),ITE2(3) 

TMP-YC ( 3 ) +SCAL»AO ( I ) ♦SO ( I , 3 ) 

IF  (TMP.GT.YMAX)  THEN 

IMAX>I 

YMAX-TMP 

ELSE 

IF  (TMP.LT.YMIN)  THEN 

IMIN-I 

YMIN-TMP 

ENDIF 

ENDIF 
15  CONTINUE 

ZPL(1)»ZPHYS(3) 

YPL(1)»YMAX 

ZPL(2)»ZPL(1) 

YPLt2)»YMIN 

IMIN«ITE1(KTIP) 

IMAZ>IHAZ 
YMAXaYC(KTIP)+SCAL^A0(ITE.1(KTIP))^S0(ITE1(KTIP),KTIP) 

YMIN-YMAX 

DO  17  I»ITE1(KTIP) ,ITE2(KTIP) 
TMP»YC(KTIP)+SCAL^AO(I)^SO(I,KTIP) 
IF  (TMP.GT.YMAX)  THEN 
IMAX>I 
YMAX»TMP 
ELSE 

IF  (TMP.LT.YMIN)  THEN 
IMIN»I 
YMIN-TMP 
ENDIF 
ENDIF 
17  CONTINUE 

ZPL ( 3 ) "ZPHYS ( KTIP ) 

YPL(3)-YMIN 

ZPL(4)-ZPL(3) 

YPL(4)»YMAX 

ZPL(5)-ZPL(1) 

YPL(5)-YPL(1) 

PLOT  THE  REAR  VIEW  OF  THE  WING 

IF  (KPL0T.GT.1)  CALL  MLINE  (ZPL, YPL, 5, 1 , 0 ,2,-3 . 05 , . 5 , -1 . 8 , . 5) 

CALL  SECTIONY  ( YSTAG, YSTAG,ZSTAG,NSTREAM, lEND, ISTART) 

H» ( XSPL ( IEND+ 1 - ISTART ) -XSPL ( 1 ) ) / 1 0 
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CALL  SPLCMP  (C,XSPL,ZSPL2,IEHD+1-ISTART) 

DO  20  1-1,11 

XPL ( I ) -XSPL ( IEND+ 1 -ISTART ) - ( I- 1 ) ♦H 
20  CALL  SPLEV  (C,XSPL,ZSPL2,XPL( I) ,ZPL( I) , IEND+1-ISTART) 

ITMP»INT( (ZSPL2( 1 )-2SPL1 ( 1 ) )/H) 

H- ( ZSPL2 ( 1 ) -ZSPL 1(1)) /ITMP 

CALL  NOSCMP  (CNS .XSPL, ZSPL 1 ,ZSPL2 ,ZSTAG) 

DO  30  1»12,11+ITMP 

ZPL ( I ) ■ZSPL2 ( 1 ) - ( I- 1 1 ) ♦H 
30  CALL  NOSEV  (CRS ,ZPL( I) ,XPL( I) ) 

H» ( XSPL { lEND- ISTART+ 1 ) -XSPL ( 1 ) ) / 1 0 

CALL  SPLCMP  ( C, XSPL, ZSPL 1,IEND+1- ISTART) 

DO  40  I»12+ITMP,21+ITMP 

XPL ( I ) «XSPL ( 1 ) + ( I- 1 1 - ITMP ) •H 
40  CALL  SPLEV  (C,XSPL,ZSPL1 ,XPL( I ) ,ZPL( I) ,IEND-ISTART+1 ) 

DO  50  K33,KTIP 

XPLW(K)sXC(K)-i-SCAL2*(A0(ILE)**2-S0(ILE,K)**2) 
50  ZPLW(K)»ZPHYS(K) 

XPLW(1)»XC(KTIP)+SCAL2»(A0(ITE2(KTIP) )»*2-S0 ( ITE2(KTIP) ,KTIP)*»2) 

ZPLW ( 1 ) sZPHYS ( KTIP ) 

XPLW( 2 ) «XC ( 3 ) +SCAL2* ( AO ( ITE2 ( 3 ) ) ♦•2-SO ( ITE2 ( 3 ) , 3 ) •♦2 ) 

ZPLW(2)aZPHYS(3) 

XPLW ( KTIP+ 1 ) bXPLW ( 1 ) 

ZPLW(KTIP+1 ) aZPLW( 1 ) 

TESLP»(XPLW( 1 )-XPLW(2) )/(ZPLW( 1 )-ZPLW(2) ) 

XESLP«(XPLW(KTIP}-XPLW(3} )/{ZPLW(KTIP) -ZPLW( 3 ) ) 

1STDOT»0 

IENDOT»0 

XTMP-XPLW  (  2 )  ■t'TESLP*  ( ZPL  ( 1 )  -ZPLW  ( 2  }  ) 

IF  ( XPL ( 1 ) . GT . XTMP )  THEN 

IFLGDOT-0 

DO  70  I»2,11 

XTMP-XPLW  (  2 )  -t-TESLP*  ( ZPL  ( I )  -ZPLW  (  2  }  ) 

IP  ( XPL ( I ) . LE . XTMP )  THEN 

ISTDOTal 

XPL ( I ) »XTMP 

DO  60  J»21+ITMP,I,-1 

XTMP-XPLW ( 2 ) +TESLP* ( ZPL ( J ) -ZPLW ( 2 ) ) 

IP  (XPL(J) .LE.XTMP)  THEN 

lENDOT-J 

XPL ( J ) »XTMP 

GO  TO  100 

ENDIP 
60  CONTINUE 

ENDIF 
70  CONTINUE 

ELSE 

XTMP-XPLW  (  3  )  -fXESLP*  ( ZPL  ( 1 )  -ZPLW  (  3  )  ) 

IF  ( XPL ( 1 ) . GT . XTMP )  THEN 

IFLGDOT-1 

DO  90  1-2,11 

XTMP-XPLW ( 3 ) +XESLP* ( ZPL ( I ) -ZPLW ( 3 ) ) 

IF  ( XPL ( I ) . LE . XTMP )  THEN 

ISTDOT-I-1 
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XPL ( ISTDOT ) -XTMP 

DO  80  J-21+ITMP, 1-1,-1 

XTMP-XPLW ( 3 ) +XESLP* ( ZPL ( J ) -ZPLW ( 3 ) ) 

IF  (XPL(J).LS.XTMP)  THEN 

IENDOT-J+1 

XPL ( lENDOT ) »XTMP 

GO  TO  100 

END  IF 
80  CONTINUE 

ENDIF 
90  CONTINUE 

ELSE 

IFLGDOT-2 

ENDIF 

ENDIF 
100  CONTINUE 
C      IF  THE  FRONT, BACK  AND  SIDE  VIEWS  OF  THE  WING  ARE  NOT  WANTED, 
C      JUMP  TO  WHERE  THE  WING  SECTION  SIDE  VIEW  COORDS  ARE  COMPUTED, 
C      THEN  JUMP  TO  SHCKPLT 

IF  (KPL0T.LE.1)  GO  TO  160 

IF  (YSTAG.GT.O)  THEN 

IF  (IN0ENG.NE.1)  THEN 
C      PLOT  TOP  VIEW  OF  ENGINE  IF  IT'S  ABOVE  THE  WING 

CALL  MLINE  (XPL,ZPL,21+ITMP, 1 , 0 , 2,-3 . 05 , . 5,-3 . 875 , . 5 ) 

ENDIF 

IF  (IFLGDOT.EQ.O)  THEN 

IF  ( ISTDOT. EQ.O)  THEN 
C      PLOT  TOP  VIEW  OF  WING  -  ENGINE  ABOVEJ^EHIND  WING 

CALL  MLINE  (XPLW,ZPLW,KTIP+1 , 1 , 0 ,2,-3 . 05 , . 5 ,-3 . 875, . 5) 

ELSE 

ZPLW(1)»ZPL(IEND0T) 

XPLW ( 1 ) aXPLW ( 2 ) +TESLP* ( ZPLW ( 1 ) -ZPLW ( 2 ) ) 

ZPLW ( KTIP+2 ) »ZPL ( ISTDOT ) 

XPLW  ( KTTt>+2  )  .XPLW  (  2  )  +TESLP*  ( ZPLW ( KTIP+2  )  -ZPLW (  2  )  ) 
C      PLOT  SOLID  PART  OF  WING  -  ENGINE  ABOVE  WING  -  INTERSECTS  TRAILING  EDGE 

CALL  MLINE  (XPLW, ZPLW, KTIP+2, 1 , 0 , 2,-3 . 05 ,. 5,-3 . 875 ,. 5) 

ZPLW( 2 ) "ZPLWt KTIP+2 ) 

XPLW(2)»XPLW(XTIP+2) 
C      PLOT  DOTTED  PART  OF  WING  TRAILING  EDGE  UNDER  ENGINE 

CALL  MLINE  (XPLW,ZPLW,2, 1 , 0 ,ID0T,-3 . 05, . 5,-3 . 875 , . 5) 

ENDIF 

ELSE 

IF  (IFLGD0T.EQ.1)  THEN 

IF  (ISTDOT. EQ.O)  THEN 
C      PLOT  SOLID  WING  -  ENGINE  ABOVE  WING  -  NO  EDGE  INTERSECTIONS 

CALL  MLINE  (XPLW,ZPLW,KTIP+1 , 1 , 0 ,2,-3 . 05, . 5,-3. 875, . 5 ) 

ELSE 

DO  120  I-3,KTIP 

IF  (ZPLW( I ) .GT. ZPL (ISTDOT))  THEN 

ZPLW ( I ) -ZPL ( ISTDOT ) 

XPLW ( I ) -XPL ( ISTDOT ) 

ISTDOT-I 
C      PLOT  INITIAL  SOLID  PART  OF  WING  -  ENGINE  ABOVE  WING  -  L.E.  INTERSECTIO 

CALL  MLINE  (XPLW,ZPLW, ISTDOT, 1 , 0 , 2 , -3 . 05 , . 5 , -3 . 875 , . 5 ) 
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DO  110  J»ISTDOT,KTIP 

17  (ZPLW(J) .GT.ZPL(IENDOT))  THEN 

ZPLW ( J ) -ZPL ( lENDOT } 

XPLW ( J ) -XPL ( lENDOT ) 

IENDOT»J 

PLOT  SECOND  SOLID  PART  OF  WING  -  ENGINE  ABOVE  WING  -  L.E.  INTERSECTION 

CALL  MLINE  (XPLW( J) ,ZPLW( J) ,KTIP+2-IEND0T, 1 , 0 ,2,-3 . 05, . 5,-3 . 875 , . 5 

1  ) 

XPLW ( ISTDOT+ 1 ) "XPLW ( lENDOT ) 

ZPLW ( ISTDOT+ 1 ) -ZPLW ( lENDOT ) 

PLOT  DOTTED  PART  OF  WING  UNDER  ENGINE  LEADING  EDGE  INTERSECTION 

CALL  MLINE  (XPLW( ISTDOT) ,ZPLW( ISTDOT) ,2, 1 , 0 ,ID0T,-3 . 05 , .5,-3.875, . 
1  5) 

GO  TO  130 

END  IF 
110  CONTINUE 

ENDIF 
120  CONTINUE 
130  CONTINUE 

ENDIF 

ELSE 

PLOT  SOLID  WING  -  ENGINE  ABOVE&IN  FRONT  OF  WING 

CALL  MLINE  (XPLW,ZPLW,KTIP+1 , 1 , 0 ,2 ,-3 . 05, . 5 , -3 . 875 , . 5 ) 

ENDIF 

ENDIF 

ELSE 

PLOT  SOLID  WING  -  ENGINE  BELOW  WING 

CALL  MLINE  (XPLW, ZPLW, KTIP+1 , 1 , 0 ,2,-3 . 05 ,. 5,-3. 875, . 5) 

IF  (IFLGDOT.EQ.O)  THEN 

IF  ( ISTDOT. EQ.O)  THEN 

IF  (INOENG.NE. 1 )  THEN 

PLOT  SOLID  ENGINE  -  ENGINE  BELOW&BEHIND  WING 

CALL  MLINE  (XPL,ZPL,21+ITMP, 1 , 0 ,2, -3. 05, . 5 ,-3 . 875, . 5 ) 

ENDIF 

ELSE 

IF  (INOENG.NE. 1)  THEN 

PLOT  SOLID  PARTS  OF  ENGINE  -  ENGINE  BELOW  WING  -  T. E. INTERSECTION 

CALL  MLINE  (XPL,ZPL,ISTDOT, 1 , 0 ,2 , -3 . 05 , . 5 ,-3 . 875, . 5 ) 

CALL  MLINE  (XPL(IENDOT) ,ZPL(IENDOT) ,22+ITMP-IENDOT, 1 , 0 ,2,-3. 05, .5, 
1  -3.875, .5) 

PLOT  DOTTED  PART  OF  ENGINE  -  ENGINE  BELOW  WING  -  T. E . INTERSECTION 

CALL  MLINE  (XPL( ISTDOT) , ZPL ( ISTDOT) , IENDOT+1 -ISTDOT, 1 , 0 , 5,-3 . 05 , .5 
1  ,-3.875, .5) 

ENDIF 

ENDIF 

ELSE 

IF  ( IFLGDOT . EQ . 1 )  THEN 

IF  (ISTDOT. EQ.O)  THEN 

IF  ( INOENG . NB . 1 )  THEN 

PLOT  ENTIRE  DOTTED  ENGINE  BELOW  WING 

CALL  MLINE  CXPL.ZPL, 21+ITMP, 1 , 0 , 5,-3 . 05 , . 5, -3 . 875 , . 5 ) 

ENDIF 

ELSE 

IF  ( INOENG . NE . 1 )  THEN 
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PLOT  DOTTED  PARTS  OF  ENGINE  -  ENGINE  BELOW  WING  -  L-E.  INTERSECTION 

CALL  MLINE  (XPL.ZPL,  ISTDOT",  1 ,  0  ,5,-3  .  05  ,  .  5,-3  .  875  ,  .  5  ) 

CALL  MLINE  (XPL(IENDOT) ,ZPL(IENDOT) ,22+ITMP-IENDOT, 1 , 0 ,5,-3 . 05, . 5 , 
1  -3.875, .5) 

PLOT  SOLID  PART  OF  ENGINE  -  ENGINE  BELOW  WING  -  L.E.  INTERSECTION 

CALL  MLINE  (XPL( ISTDOT) ,ZPL( ISTDOT) , 1+IENDOT-ISTDOT, 1 , 0 ,2,-3 . 05, . 5 
1  ,-3.875,-5) 

ENDIF 

ENDIF 

ELSE 

IF  ( IHOENG . NE . 1 )  THEN 

PLOT  ENTIRE  SOLID  ENGINE  -  ENGINE  BELOW&IN  FRONT  OF  WING 

CALL  MLINE  (XPL.ZPL, 21+ITMP, 1 , 0 ,2 ,-3 . 05, . 5,-3. 875, . 5) 

ENDIF 

ENDIF 

ENDIF 

ENDIF 

DO  140  Ks4,KTIP-1 

XPLW(1)«XC(K)+SCAL2»(A0(ILE)»»2-S0(ILE,K)»»2) 

ZPLW(1)-ZPHYS(K) 

XPLW(2)»XPLW(1)+.15 

ZPLW(2)»ZPLW(1) 

PLOT  HASH  MARKS  FOR  Z  GRID  LINES 
140  CALL  MLINE  (XPLW,ZPLW, 2, 1 , 0 ,2,-3 . 05, . 5 ,-3. 875, . 5) 

H-PI/15 

ANG»0 

DO  150  I»1,31 

CALL  FR  (ANG,RAD,R,NSTRBAM,IEND) 

ZPL ( I ) -ZSTAG-RAD^COS ( ANG ) 

yPL(  I )  *YSTAG-t-RAD*SIN(ANG) 
150  ANG-ANG-t-H 

IF  (INOENG.NE. 1)  THEN 

PLOT  REAR  VIEW  OF  ENGINE 

CALL  MLINE  (ZPL, YPL,31 , 1 , 0 ,2,-3 . 05, . 5,-1 . 8, . 5) 

ENDIF 

DO  155  I»ITE1(KSRC) ,ITE2(KSRC) 

XPL(I)«XC(KSRC)+SCAL2»(A0(I)»»2-S0(I,KSRC)»»2) 
155  yPL  ( I )  «YC  ( KSRC )  -t-SCAL'AO  ( I )  *S0  ( I , KSRC ) 

I.ITEI(KSRC) 

J»ITE2(KSRC)-ITE1(KSRC)+1 

PLOT  WING  SECTION  IN  Z=ZSOURCE  PLANE 

CALL  MLINE  (XPL( I ) ,yPL(I) , J, 1 , 0 , 2,-1 . 05 , . 5 , -4. 175 , . 5) 
160  CALL  SECTIONZ  (ZSTAG, YSTAG,ZSTAG,NSTREAM,IEND, ISTART) 

H» ( XSPL ( IEND+ 1 -ISTART ) -XSPL ( 1 ) ) / 1 0 . 

CALL  SPLCMP  ( C, XSPL, YSPL2,IEND+1- ISTART) 

DO  170  1-1,11 

XPL ( I ) -XSPL ( IEND+ 1 -ISTART ) - ( I- 1 ) ♦H 
170  CALL  SPLEV  (C.XSPL, YSPL2,XPL( I) , YPL( I) ,IEND+1-ISTART) 

ITMP-INT( (YSPL2(1)-YSPL1(1) )/H) 

H- ( YSPL2 ( 1 ) - YSPL 1 ( 1 ) ) /ITMP 

CALL  NOSCMP  (CNS , XSPL, YSPL1 ,YSPL2, ZSTAG) 

DO  180  I-12,11+ITK3 

YPL ( I ) -YSPL2 ( 1 ) - ( I- 1 1 ) •H 
180  CALL  NOSEV  (CNS, YPL( I) ,XPL(I ) ) 
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H= ( XSPL ( lEND- ISTART+ 1 ) -XSPL ( 1 ) ) / 1 0 

CALL  SPLCMP  (C,XSPL,YSPL1,1END-ISTART+1) 

DO  190  1»12+ITMP,21+ITMP 

XPL ( I ) «XSPL ( 1 ) + ( I- 1 1 - ITMP ) ♦H 
190  CALL  SPLEV  (C.XSPL,  YSPL1  ,XPL(I }  ,  YPL(  I )  ,  lEND-ISTART-f  1 ) 

17  (KPLCT.LE.1)  60  TO  200 

17  ( IN0EN6 . NE . 1 )  THEM 
.  PLOT  ENGINE  SECTION  IN  Z'ZSOORCE  PLANE 

CALL  MLINE  (XPL,yPL,21+ITMP, 1 , 0 ,2 , -1 . 05 , . 5,-4. 175, . 5) 

END  1 7 

IMAX«ITE1(KSRC) 

IMIN>IMAX 

YMAX»YC(KSRC)+SCAL»A0(ITE1(KSRC) ) ♦SO ( ITE1 (KSRC) ,KSRC) 

YMINaYMAX 

DO  195  I»ITE1 (KSRC), ITE2 (KSRC) 

TMPaYC  ( KSRC )  ■i-SCAL*AO  ( I )  'SO  ( I , KSRC ) 

17  (TMP.GT.YMAX)  THEN 

IMAX-I 

YMAX-TMP 

ELSE 

17  (TMP.LT.YMIN)  THEN 

IMIN»I 

YMIN»TMP 

END  1 7 

ENDI7 
195  CONTINUE 

THICK=YMAX-YMIN 

TMPaA0(ILE)**2-S0(ILE,KSRC}«*2 

CHORD»SCAL2»((A0(ITE2(KSRC))*»2-S0(ITE2(KSIiJ),KSRC)»*2)-TMP) 

17  ( INOENG . NE . 1 )  THEN 

CALL  PHSCMP  (XSTAG,YSTAG,ZSTAG,XX,YY,ZZ) 

CALL  SPEED  (XX, YY,ZZ,aU, W,WW,  1 ) 

QQO»au*aD+w»w+ww»ww 

7LUX0»SQRT(QQ0)»( ( 1+ . 2»7MACH*7MACH»( 1-QQO ) ) )»*2.5 

DIAM»2*R(1,IEND) 

WRITE  (6,*)  '7INAL  STREAM  TUBE  DIAMETER' ,DIAM 

ENGDIAMbSQRT(AMAX1 (DIAM«DIAM-7LUX0«R0«R0*4 , 0 . 0 ) ) 

VmiTE  (6,210) 

TSTDIAM»STRENGTH»CH0RD 

WRITE  (6,220)  THICK.CHORD.TSTDIAM 

WRITE  (6,230)  ENGDIAM 

ENCODE  (20,240,TSYM) 

CALL  SETLCH  (2. ,7. ,1,0,1,0) 

CALL  CRTBCD  (TSYM,7) 

CALL  SETLCH  (6. ,7. ,1,0,1,0) 

CALL  CRTBCD  (TSYM,7) 

CALL  SETLCH  ( 6 . ,2 . 25 , 1 , 0 , 1 , 0 ) 

CALL  CRTBCD  (TSYM,7) 

ENCODE  (20,250,TSYM)  ZSTAG 

CALL  SETLCH  (2. ,6.8,1,0,1,0) 

CALL  CRTBCD  (TSYM,7) 

ENCODE  (20,260,TSYM)  YSTAG 

CALL  SETLCH  (6. ,6.8,1,0,1,0) 

CALL  CRTBCD  (TSYM,7) 
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ENCODE  (20,270,TSYM}  XSTAT(IEND} 
CALL  SETLCH  (6. »2. 05, 1,0, 1,0) 
CALL  CRTBCD  (TSYM,7) 

ENCODE  (20,280.TSYM)  ENGDIAM/ CHORD 
CALL  SETLCH  (2. ,4. ,1,0,1,0} 
CALL  CRTBCD  (TSYH,7) 
ENDI7 

ENCODE  (20,290,TSYM)  THICK/CHORD 
CALL  SETLCH  (2. ,3. ,1,0,1,0) 
CALL  CRTBCD  (TSYM,7) 
ENCODE  (20,300,TSYM)  FMACH 
CALL  SETLCH  (2. ,2. ,1,0,1,0) 
CALL  CRTBCD  (TSYM,7) 
200  IF  (KPLOT.GT.O)  CALL  SHCKPLT  ( ITMP , INOENG ) 

210  FORMAT  ('THICK  CHORD  DIAM' ) 

220  FORMAT  (4F10.6} 

230  FORMAT  (24HDIAMETER  OF  ENGINE  AFTER29H  SUBTRACTION  OF  INITIAL  FLUX 

1  ,F10.6) 
240  FORMAT  (20HENGINE  SECTION       ) 
250  FORMAT  (7HAT  Z  >  ,F5.3,8Z) 
260  FORMAT  ( 7HAT  Y  •  ,F5.3^8X) 
270  FORMAT  ( 7HAT  X  ■  ,F5.3,8X) 
280  FORMAT  (6HD/C  •  ,F5.3,9X) 
290  FORMAT  ( 6HT/C  ■  ,F5.3,9X) 
300  FORMAT  ( 6H  M   •  ,F5.3,9X) 
END 


SUBROUTINE  HLINE  (X, Y,N,N1 ,N2,ND0T,SHX,SCX,SHY,SCy) 
PLOT  A  LINE 

DIMENSION  X(1),  Yd),  XT(200),  YT(200) 
00  10  I»1,N 
XT(I)»(X(I)-SHX)/SCX 
10  YT(I)«(Y{I)-SHY)/SCY 
ir  (ND0T.EQ.2)  THEN 
CALL  TRACE  (XT,YT,N) 
ELSE 

CALL  TRACEP  (XT,YT,N) 
ENDIF 
END 


SUBROUTINE  GEOM  (ND,NC,NP,ZS,XS, YS,XLE,YLE,SLOPT, TRAIL, XP,YP 

1  ,  SWEEP  1  ,  SWEEP2  ,  SWEEP  ,  DIHED 1  ,  DIHED2  ,  DIHED  ,  X I'EO  ,  CHORDO  ,  ZTIP  ,  ISYMO 

2  ,CLO) 

GEOMETRIC  DEFINITION  OF  WING 

DIMENSION  XS(ND,1),  YS(ND,1),  ZSd),  XLE(1),  YLE(1),  SLOPTd), 
1  TRAILd),  XPd),  YPd),  NPd),  CLOd) 
DIMENSION  DESCdO) 
IREAD>5 
IWRIT-6 
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IPGFLG-3 

RAI3-57.  2957795130823 

READ  (IRBAI},130)  DESC 

READ  (IREAD,120)  ZSYM, FNC, SWEEP 1 ,SWEEP2 .SWEEP, DIHED1 ,DIHED2,DIHED 

WRITE  (IWRIT,170)  ZSYM,FNC,SWEEP1 ,SWEEP2 .SWEEP, DIHED1 ,DIHED2,DIHED 

IP  (FNC.LT.3.)  RETURN 

NC»FNC 

SWEEP 1 -SWEEP 1 /RAD 

SWEEP2bSWEEP2/RAD 

SWEEP»SWEEP/RAD 

DIHED1-DIHED1/RAD 

DIHED2aOIHED2/RAD 

DIHEDaDIHED/RAD 

ISYMO-I 

XTEO»0. 

CHORDOaO. 

DO  60  K-1.HC 

READ  (IREAD.130)  DESC 

READ  (IREAD,120)  ZS(K) , XL. YL, CHORD, THICK. AL.FSEC.CLO (K) 

WRITE  (IWRIT.200}  ZS (K) .XL. YL. CHORD, THICK, AL.FSEC 

ALPHA-AL/RAD 

IF  (K.EQ. 1.0R.FSEC.NE.O. }  THEN 

READ  (IREAD.130}  DESC 

READ  (IREAD.120)  YSYM.FNU.FNL, SN60PT.ZEN0.SNGRAT 

WRITE  (IWRIT,180)  YSYM.FNU.FNL 

ND*FNU 

NL>FNL 

N»NU+NL-1 

READ  (IREAD.130)  DESC 

READ  (IREAD.120}  TRL. SLT.XSING, YSING 

WRITE  (IWRIT.190}  TRL.SLT.XSING.YSING 

READ  (IREAO.130}  DESC 

WRITE  (IWRIT.200} 

DO    10    iBtlL.N 

READ    (IREAD.120)    XP(I),YP(I) 

WRITE    (IWRIT,160)    XP(I),yP(I) 
10    CONTINUE 

IF    (YSYM.LE.O. )    THEN 

READ  (IREAD,130}  DESC 

WRITE  (IWRIT,210) 

DO  20  I»NL, 1 ,-1 

READ  (IREAD,120}  XP(I),YP(I) 

WRITE  (IWRIT,160)  XP(I),YP(I} 
20  CONTINUE 

ELSE 

J-NL+1 

00  30  I-NL,N 

J-J-1 

XP(J)»XP(I) 

YP(J}—YP(I} 
30  CONl'INUE 

aNDIF 

WRITE  (IWRIT,140) 

WRITE  (IWRIT,80}  ZS(K) ,TRL,SLT,XSING,YSING 
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WRITE  (IWRIT.IOO) 

DO  40  I>1,N 

ir    ( (I.EQ.44} .OR. (I.EQ.88)}  THEN 

WRITE  (IWRIT,90) 

WRITE  (IWRIT.IOO) 

ENDIF 

WRITE  (IWRIT,150)  XP(I),yP(I) 
40  CONTINUE 

ENDir 

SCALE»CHORD/ ( XP ( 1 ) -XP ( NL ) ) 

XLE(K}>XL4-(XSIN6-XP(NL)  )  •THICX*SCALE 

YLE ( K ) ■ YL+ ( YSING- YP ( NL) ) •THICK*SCALE 

XX»XP ( NL) + ( XSING-XP ( NL) ) ♦THICK 

yY»yP ( NL )+( YSING- YP ( NL )) ♦THICK 

CA»COS( ALPHA) 

SA>SIN( ALPHA) 

DO  50  1-1, N 

XS  ( I,  K) 'SCALED  (  (XP(I)-XZ)^CA-i-THICK^(YP(I)-YY)^SA) 

YS ( I , K ) -SCALED ( THICK* ( YP ( I ) - YY ) •CA- ( XP ( I ) -XX ) ♦SA ) 
50  CONTINUE 

SLOPT(K)»THICK»SLT-TAN( ALPHA) 

TRAIL ( K ) aTHICK»TRL/RAD 

NP(K)aN 

XTE0-AMAX1 (XTE0,XS( 1 ,K) ) 

CHORD 0 >AMAX 1( CHORD 0 , CHORD ) 

IF  (YSYM.LE.O. .OR. ALPHA. NE.O. )  ISYMOaO 

17  (IPGFL6.EQ.3)  THEN 

IPGTLG-1 

WRITE  (IWRIT,90) 

ELSE 

IPGrLG"IPGFLG+ 1 

END  IF 

WRITE  (IWRIT,110)  2S(K) , XL, YL, CHORD, THICK, AL.rSEC 
60  CONTINUE 

Z0»ZS(1) 

DO  70  K»1,NC 

ZS(K)«ZS(K)-ZO 
70  CONTINUE 

ZTIP«ZS(NC) 

RETURN 

80  FORMAT  (////1H0 , 21X, 15HPR0FILE  AT  Z  ■  ,F10 . 5/1H0 ,9X, 14HTE  ANGLE 

1  ,14HTE  SLOPE       , 14HX  SING         ,14HY  SING         /1H  ,3X,4 

2  F14.4) 

90  FORMAT  ( 1H1/3(/lH0 ) ) 
100  FORMAT  (1H0,23X,18H     X  ,1HY} 

110  FORMAT  (//1H0,8X,26HSECTION  DEFINITION  AT  Z  -  , F1 0 . 5/1H0 , 1 IX, 14HXL 
IE  ,14HYLE  ,5HCH0RD/1H  , 6X, 3E14 . 5/1H0 , 1 IX, 14HTH 

2ICK  ,5HALPHA,13H  FSEC/1H  ,6X,3E14.5) 

120  FORMAT  (8F10.6) 
130  FORMAT  (10A8) 
140  FORMAT  (1H1) 
150  FOn*::AT  (1H  ,16X,2F14.4) 
160  FORMAT  ( 1H  ,16X,2E14.5) 
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170  FORMAT  (/1H0 , 7X, 14HZ3YM 

1  1H0,7X,14HSWEEP1 

2  1H0,7X,14HDIHED1 

180  FORMAT  (/1H0 , 7X, 14HYSYM 

1  E14.5) 
190  FORMAT  (/1H0 ,7X, 14HTRL 

1    ,5HYSING/1H  ,2X,4B14 
200  FORMAT 
210  FORMAT 
END 


,14HFNC 
,14HSWEEP2 
,14HDIHED2 

,14HFNn 


14HSLT 


5) 


/1H  ,2X,2E14.5/ 
,5HSWEEP/1H  ,2X,3E14.5/ 
,5HDIHED/1H  ,2X,3E14.5} 

,3HFNL/1H  ,2X,3 

,14HXSING 


(1H1,/////,23X,5HXP(I),10X,5HYP(I)) 
(1H1, /////, 23X,3HVAL,12X,3HDUM) 


SUBROUTINE  SINGL  (NC ,NZ ,KTE1 ,KTE2 .CHORD 0 , SWEEP 1 , SWEEP 2 , SWEEP 

1  ,DIHEDl,DIHED2.DIHED,ZS,XLE,yLB,XC,XZ,XZZ,yC,YZ,YZZ,Z,C1,C2,C3,E1 

2  ,E2,E3,E4,E5,IND,CL0,CLPRE) 

GENERATES  SINGULAR  LINE  FOR  SQUARE  ROOT  TRANSFORMATION 

DIMENSION  2S(1),  XLE(1),  YLE(1),  XC(1),  XZ(1),  XZZ(1),  YC(1),  YZd 

1  ),  YZZd),  Z(1),  C1(1),  C2(1),  C3(1),  Eld),  E2d),  E3d),  E4d), 

2  E5d),  CLOd),  CLPREd) 
DO  1 0  K» 1 , NC 

E4(K)-0. 

E5(K)»0. 
10  CONTINUE 

K1-3 

K2>NZ-t-2 

KTE1-3 

DO  20  KsKl,K2 

IF  ((Z(K)-ZSd)).LT. (-.000000000000002))  KTE1-K+1 

IF  (Z(K) .LE.ZS(NC) )  XTE2bK 
20  CONTINUE 

B* CHORD 0 

S 1 "TAN ( SWEEP 1) 

S2<iTAN(SWEEP2) 

T1»TAN(DIHED1) 

T2aTAN(DIHED2) 

CALL  SPLIF  d,NC,ZS,XLE,E1,E2,E3,1,S1,1,S2,0,0. ,IND) 
(KTE1 ,KTE2,Z,XC,1,NC,ZS,XLE,E1 ,E2,E3,0) 
(KTE1 ,KTE2,Z,XZ, 1 ,NC, ZS , El , E2 , E3 , B4 , 0 ) 
( KTE 1 , KTE2 , Z , XZZ , 1 , NC , ZS , E2 , E3 , E4 , E5 , 0 ) 
(  1 ,  NC ,  ZS  ,  YLE ,  E 1 ,  E2  ,  E3  , 1 ,  T 1 , 1 ,  T2  ,  0  ,  0  .  ,  IND ) 
(KTE1 ,KTE2,Z,YC,1,NC,ZS,YLE,E1 ,E2,E3,0) 
(KTE1,KTE2,Z,YZ,1»>IC,ZS,E1,E2,E3,E4,0) 
( KTE 1 , KTE2 ,Z,YZZ,1,NC,ZS,E2,E3,E4,E5,0) 
d,NC.ZS,CL0,E1,E2,E3,3,0. ,3,0. ,0,0. ,IND) 
( KTE1 , KTE2 , Z , CLPRE , 1 , NC , ZS , CLO , E 1 , E2 , E3 , 0 ) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


INTPL 

INTPL 

INTPL 

SPLIF 

INTPL 

INTPL 

INTPL 

SPLIF 

INTPL 
S>B«TAN( SWEEP) 
S1-B*S1 
S2>B*S2 
T»B»TAN(DIHED) 
T1»B»T1 
T2»B»T2 

XC(2)-3.*(XC(3)-XC(4) )+XC(5) 
yC(2)»3.»(YC(3)-YC(4))+YC(5) 
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N-KTE2+1 

DO  30  K»N,K2 

ZZ>(Z(K)-Z(KTE2) }/B 
A«EZP(-ZZ) 

XC(K)»XC(KTE2)+S»ZZ+(S2-S)»(1.-A) 
YC(K)»YC(KTE2)+T*ZZ+(T2-T)»(1.-A) 
Z?;(K)>(S-(-(S2-S}*A)/B 
YZ(K)-(T+(T2-T)»A)/B 
ZZZ(K)«-(S2-S)*A/(B*B} 
YZZ ( K ) ■- ( T2-T ) ♦A/ ( B»B ) 
30  CONTINUE 
RETURN 
END 


SUBROUTINE  SURF  (ND,NE,NC,NZ,NZ,ISYM,KTE1 ,KTE2 ,SCAL, YAVf,AO .Z.ZS.ZC 

1  ,YC,SLOPT,TRAIL,ZS,YS,NP,ITE1,ITE2>,IV,S0,Z0,ZP,YP,D1,O2,O3,Z,Y 

2  ,IND,ZZ,YZ,A1,C1) 

C      INTERPOLATES  MAPPED  WING  SURPACE  AT  MESH  POINTS 
C      INTERPOLATION  IS  LINEAR  IN  PHYSICAL  PLANE 

DIMENSION  S0(NE,1),  ZS(ND,1),  YS(ND,1),  ZS  (  1)  ,  SLOPT(I),  TRAILd), 

1  ZC(I),  YC(1),  A0(1),  Z(1),  Z0{1),  Z(1),  Yd),  ZP(1),  YP(1),  Did) 

2  ,  D2d),  D3d),  IV(NE,1),  NPd),  ITE1  (1 )  ,  ITE2d),  ZZd),  YZ(1), 

3  Aid),  Cid) 

COMMON  /DIM/  RZ,  RY,  RZ,  PDIM 

PI»3. 14159265268979 

TYAW«TAN(YAW) 

S1-.5«SCAL 

DZ»2 . *RZ/PLOAT ( NZ ) 

LZ-NZ/2-t-l 

MZ*NZ-f1 

MZaNZ-t-3 

IV0»1-ISYM-ISYM-ISYM 

IV1  —  1-ISYM 

DO  10  K«1,MZ 

ITE1(K)»MZ 

ITE2(K)sMZ 

DO  10  1-1, MZ 

IV(I,K)»-2 

SO(I,K)aO. 
10  CONTINUE 

K-KTE1 

K2>1 
20  K2«K2-f1 

K1-K2-1 

R2-1. 

IF  (ZS(K2)-Z(K))  20,40,30 
30  R2-(Z(K)-ZS(K1) )/(ZS (K2 )-ZS(K1 ) } 
40  R1-1.-R2 

C-R1 ♦ZS  d ,K1 ) +R2»ZS  d ,K2 ) 

CC»SQRT ( ( C+C ) /SCAL ) 

DO  50  Ia2,NZ 

IF  ( (A0(I)+.5*DZ) .LT.-CC)  I1-I+1 
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IF  ( (A0(I)-.5»DX) .LT.CC)  I2»I 
50  CONTINUE 

ITE1(K)»I1 

ITE2(K)»I2 

CC»A0(I2)/CC 

Z0(K)»Z(K)-TyAW»(XC(K)+S1»A0(l2)*A0(I2)) 

KK-K1 

P»R1 
60  N>NP(KK) 

Q.SQRT ( XS ( 1 , KK ) /C ) /CC 

00  70  Ia2,NX 

X(I)>Q*AO(I} 
70  CONTINUE 

ANGL-PI-t-PI 

U»1. 

V»0. 

00  80  I»1,N 

RaSQRT ( XS (I ,KK ) •*2-i-YS ( I , KK )  •*2  ) 

IP  (R.NE.O.)  THEN 

ANGL»ANGL-t-ATAN2  (  (U'YSC  I  ,KX)-V*XS(  I,KX)  )  ,  (U*XS ( I ,KX) •fV*yS  ( I ,KX}  )  ) 

U»XS(I,KK) 

V«YS(I,iaC) 

R-SQRT  (  ( R-i-R }  /SCAL ) 

XP ( I ) aR*COS ( . 5«ANGL } 

yp ( I ) »R*SIN ( . 5*ANGL ) 

ELSE 

ANGLaPI 

U»-1. 

V-0. 

XP(I)-0. 

YP(I)»0. 

ENOIF 
80  CONTINUE 

ANGL-ATAN ( SLOPT ( KK ) ) 

ANGL1»ATAN{yS(1,KK)/XS(1,KK)) 

ANGL2»ATAN(yS(N,KK)/XS(N,KK) ) 

ANGL1»ANGL-.5»(ANGL1-TRAIL(KK) ) 

ANGL2>ANGL- .  5*  ( ANGL2-f-TRAIL  ( KK )  ) 

T1»TAN(ANGL1) 

T2»TAN(ANGL2) 

CALL  SPLIF  (1,N,XP,yP,O1,D2,O3,1,T1,1,T2,0,0. ,INO) 

CALL  INTPL  (II, 12, X,y,1,N,XP,yP, 01, 02,03,0) 

X1*.25*XS(1,KK) 

A»SL0PT(KX)»(XS(1,iaC)-X1) 

B-1./(XS(1,KX)-X1) 

AN6L>PI-»-PI 

U-l. 

V>0. 

M-I1-1 

00  90  1*2, M 

XX- . 5*SCAL«X( I ) ••2 

0»B*(XX-X1) 

yy-yS ( 1 , KK ) +A»ALOG ( D ) /O 

R-SQRT (xx**2+yy**2) 
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ANGL-ANGL+ATAN2  (  ( VYY-VXX  )  ,  ( D»XX+V»yY )  ) 

u-xx 

V»YY 

R«SQKT( (R+R)/SCAL) 
Y(I)»R»SIN( .5»ANGL) 
90    CONTINUE 

A»SL0PT(KK)»(XS(N,KK)-X1) 

B-1./(XS(N,KK)-X1) 

ANGL'O. 

U»1. 

V-0. 

M»I2+1 

DO    100    I»M,NX 

X2" . 5»SCAL»X( 1 ) ♦•2 

D«B*(XX-X1) 

YYa YS ( N , KK ) +A»ALOG ( D ) /D 

R«SQRT ( XX**2+YY»»2 ) 

ANGL-ANGL+ATAN2( (U»YY-V»XX) , (n*XX+V»YY) ) 

U"XX 

V»YY 

R»SQRT ( ( R+R ) /SCAL ) 

Y(I)»R»SIN( .5*ANGL) 
100  CONTINUE 

Q>P«Q*CC*CC 

DO  110  I»2,NX 

SO(I,K)-SO{I,K)+Q*Y(I) 
110  CONTINUE 

IF  (KK.NE.K2)  THEN 

KK>K2 

P-R2 

GO  TO  60 

ENDiy 

DO  120  1-11,12 

IV(I,K)»2 
120  CONTINUE 

M-I1-1 

DO  130  1-2, M 

ZZ-Z(K)-TYAW»(XC(K)+S1»A0(I)»A0(I)) 

If  (ZZ.GE.ZO(KTEI))  IV(I,K)»IVO 
130  CONTINUE 

M-I2+1 

DO  140  I-M,NX 

ZZ»Z(K)-TYAW»(XC(K)+S1*A0(I)*A0(I) ) 

IF  (ZZ.GE.ZO(KTEI))  IV(I,K)»IVO 
140  CONTINUE 

K2-K2-1 

K-K+1 

IF  (K.LE.KTE2)  GO  TO  20 

K1-3 

K2-NZ-t-2 
150  DO  160  1-2, NX 

ZZ-Z(K)-TYAW»(XC(K)+S1»A0(I)*A0(I) ) 

IF  {ZZ.LE.ZS(NC).AND.ZZ.GE.Z0(KTE1))  IV(I,K)-IVO 

160  CONTINUE 
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KaK+1 

17  (K.LE.K2)  GO  TO  150 

N«KTE2 

IF  ( YAW . GT . 0 . )  THEN 

I0»ITE1(KTE2)+1 

DO  170  I»IO,LX 

N»N+ 1 

Z0(N)«Z(KTE2)-TYAW*(XC(KTE2)+S1»A0(I)»A0(I)) 
170  CONTINUE 

ENDI? 

I»ITE1(KTE1) 

Z0(KTE1-1)«Z(KTE1-1)-TYAW*(XC(KTE1-1)+S1»A0(I)»A0(I)) 

Z0(N+1 )aZ(KTE2+1) 

DO  190  KaKl,K2 

DO  180  1*2, NX 

IF  (IV(I,K) .LE.O)  THEN 

IF  (IV(I+1,K+1).GT.O.OR.IV(I-1,K+1).GT.O)  IV(I,K)aIVl 

IF  (IV(I+1,K-1).GT.O.OR.IV(I-1,K-1).GT.O)  IV(I,K)-IV1 

END  IF 
180  CONTINUE 

IF  (SO(LX,K) .LT.1.E-05)  IV(LX,K)»0 
190  CONTINUE 

DO  200  I»2,NX 

S0(I,2)-3.»(S0(I,3)-S0(I,4))+S0(I,5) 
200  CONTINUE 

RETURN 

END 


SUBROUTINE  ESTIM  (ALFO) 

INITIAL  ESTIMATE  OF  REDUCED  POTENTIAL 

COMMON  G( 200, 35, 35),  S0(200,35},  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35},  A0(200),  A1(200),  A2(200},  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35},  Z(35},  C1(35),  C2(35),  C3(35),  XC(35),  XZ 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2 , 

5  N3,  10,  NDES,  TSTEP,  EPS1 ,  QFRE( 200 ,35) ,  SOPRE( 200 , 35 ) ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 

8  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 200 , 35 ) ,  SECDRG(35) 

9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC 
DIMENSION  ALFO ( 1 } 

KY=NY+1 
MZ-NZ-t-3 
DO  10  1*1,200 
DO  10  J*1,35 
DO  10  K* 1,35 
10  G(I,J,K)*0. 
K*1 

DO  30  K*1,MZ 
DO  20  1*2, NX 
G(I,KY+1 ,K)*0. 
IF  (IV(I,K) .LT.2)  GO  TO  20 
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DSI»S0(I+1,K)-S0(I-1,K) 

DSK=>S0(I,K+1)-S0(I,K-1) 

SXaAl(I)*DSI 

SZ»C1(K)*DSK 

FH>AO(I)*AO(I)-^SO(I,K}«SO(I,K} 

H-1./FH 

AZ— AO(I)*XZ(K)-SO(I,K)*yZ(K) 

BZ*-AO(I}*YZ(K}-»-SO(I,K}*ZZ(K} 

HZ>AZ«SX-BZ-i-FH*SZ 

ryY»1 . +SX»SX+H»HZ»HZ 

FXy>SX-i-H*AZ*HZ 

V-SA«AO(I)-CA*SO(I,K} 

a>CA*AO(I)+SA*SO(I,K} 

W»SYAW+CA»XZ ( K ) +SA*YZ ( K ) 

G(I,Ky+1,K)«G(I,KY-1,K)+(V»(1.-H»BZ*HZ)-0»FXY-W»HZ)/(FYY»B1(Ky)) 
20  CONTINUE 
30  CONTINUE 

K1»KTE1-1 

K2-KTE2+ITE2 ( KTE2 ) -NX/2 

DO  40  K-K1,K2 

ALFO(K}«0. 
40  EO(X}«0. 

10-1 

RETURN 

END 


SUBROUTINE  VELO  (K,L,SV,SM,CP,X, Y,UC,VC,WC) 

CALCULATES  SURFACE  VELOCITY 

COMMON  6(200,35,35),  80(200,35),  B0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35}, 

2  B1(35},  B2(35).  B3(35),  Z(35),  C1(35),  C2(35),  C3(35),  XC(35),  XZ 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ,  KTE1 ,  KTE2 , 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2 , 

5  N3,  10,  NDES,  TSTEP,  EPS1 ,  QPRE( 200 , 35 ) ,  S0PRE( 200 , 35 ) ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  004(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 

8  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDR6?LT( 200 ,35 ) ,  SECDRG(35) 

9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC 

DIMENSION  SV(1),  SM( 1) ,  CP(1),  X(1),  Y(1),  UC(1),  VC(1),  WC(1) 
DIMENSION  Q2( 200) ,  Q2S(200),  Q2SX(200},  Q2SZ(200),  Q2M(200),  Q2SN( 
1  200),  Q2SXM(200),  Q2SZM(200),  Q2P(200) 
DIMENSION  DY(200),  DYK(200) 
COMMON  /DIM/  RX,  RY,  RZ ,  FDIM 
I10»ITE1(KTE1) 
I20»ITE2(KTE1) 
DO  10  KDaM«KTE1,KTE2 
I10»MIN0(I10,ITE1(KDUM)) 
I20*MAX0(I20,ITE2(KDUM) ) 
10  CONTINUE 
J-NY+1 

Q1«.2*FMACH»*2 
T1»1./( .7»FMACH»»2) 
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DO  20  1-110,120 

FH»A0(I)*A0(I)+S0(I,K)*S0{I,1C) 

HaO. 

IF  (IV(1,K) .NE.O)  H-1./FH 

AZ— AO(I)»XZ(K)-SO(I,K)»yZ(K) 

BZ»-AO(I}*yZ(K)-KSO(I,K}*ZZ(K} 

DSI-S0(I+1,K)-S0(I-1,K) 

DSK«S0(I,K+1)-S0(I,K-1) 

SX»A1(I}«DSI 

SZ>C1(K}«0SK 

DG1»G(I+1,J,L)-G(I-1,J,L) 

DGJiiG(I,J+1,L)-G(l,J-1,L) 

DGK«G ( I , J , L+ 1 ) -G ( I , J , L- 1 ) 

a»A1 ( I ) •DGI+SX»B 1 ( J ) •DGJ+CA»AO ( I ) +SA*S0 ( I , K ) 

Va-B1(J)»DGJ+SA»A0(I)-CA»S0(1,K) 

W»C1 (K) ♦DGK+SZ»B1 ( J ) ♦DGJ+SYAW+CA»XZ (K) +SA»YZ (K) +H» (a*AZ+V*BZ ) 

QQ-H*  ( U*U-i- V« V )  -t-W^W 

SV(I}«SIGN(SQRT(QQ) ,0) 

IF  (1V(I,K).EQ.0)  SV(I)»SV(I-1)+SV(I-1)-SV(I-2) 

ac(i)»o. 

VC(I)«0. 

WC(I)»0. 

QQ»1.+Q1»(1.-QQ) 

IF  (QQ.LE. (.0001)}  QQ*.01 

SM  ( I )  «»FMACH»SV  ( I ) /SORT  ( QQ ) 

CP(I)=T1*(QQ»»3.5-1. ) 

X(I}>XC(K)+.5*SCAL*(A0(I)*A0(I)-S0(I,K}*S0(I,K) ) 

y(I)«YC(K)+SCAI.*AO(I)»SO(I,K) 

IF  (NDES.GT.O)  THEM 

W2S>2.*W*H*(  (-a*TZ(X)-«-V*XZ(K)-i-SA*AZ-CA«BZ)-2.*S0(I,K)*H*(U*AZ+V*BZ 

1  )) 
Q2S( I ) »-2 . •H* ( ( SA»0-CA»V) -SO ( I ,K) •H* (U»a+V*V) ) -W2S 
Q2SX(  I )  a-2  .  *B1  ( J }  aOGJ^H*  ( U->-AZ*W) 
0.2SZ  ( I )  a-2  .  •B 1  ( J }  •OGJ'W 
ENDIF 
20  CONTINUE 

IF  (NDES.GT.O)  THEN 

CALL  SORMOD  (K,L,SV,SM,CP,X, Y.OC, VC,WC,Q2S ,Q2SX,Q2SZ) 

ENDIF 

RETURN 

END 


SUBROUTINE  SURMCD  (K,L,SV,SM,CP,X, Y.UC, VC,WC,Q2S .Q2SX,Q2SZ ) 

PERFORMS  SURFACE  MODIFICATION  IN  DESIGN  MODE 

COMMON  G( 200, 35,35 ) ,  S0(200,35).  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200),  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35},  B2(35),  B3(35),  Z(35),  C1(35),  C2(35),  C3(35),  XC(35},  XZ 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  NX,  NY,  NZ ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2, 

5  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 ,35 ) ,  SOPRE( 200 , 35 } ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35),  PCQ2(35),  PCQ3(35),  001(35),  QQ2(35),  003(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 
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8  no,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 200 ,35) ,  SECDRG(35) 

9  ,  FIKH1,  FINH2,  ISRC,  JSRC,  KSRC 

DIMEKSION  SV(1),  SM(1?,  CP(1).  X(1),  Yd),  UC(1),  VC(1).  WC(1) 
DIMENSION  Q2(200),  Q2S(2C0),  Q2SX(200),  Q2SZ(200),  Q2M(200),  Q2SM( 
1  200),  Q2SXM(200),  Q2SZM(200),  Q2P(200) 
DIMENSION  DY(200),  DyK(200) 
COMMON  /DIM/  ax,  RY,  RZ,  FDIM 
I1»ITE1(K) 
I2»ITE2(K) 
I10"ITE1(KTE1) 
I20»ITE2(KTB1) 
DO  10  KDUM=KTE1 ,KTE2 
I10«MIN0(I10,ITE1(KDUM) ) 
10  I20-MAXO(I20,ITE2(KDOM) ) 
DXaRX/FLOAT(NX) 
CTJTLO-.80 
J-NY+I 

Q1-.2»FMACH»»2 
T1»1./( .7»FMACH»»2) 
KFLAGaO 

IF  (K.GT.KTE1)  GO  TO  30 
DO  20  IaI10,l20 
DYX(I)«0. 
Q2(I)«QPRE(I,K)»QPRE(I,K)-SV(I)»SV(I) 

UC(I)-QPRE(I,K) 
VC(I)»SO(I,K)-SOPRE(I,K) 
Q2SM(I)>Q2S(I) 
Q2SXM(I)«Q2SX(I) 
20  Q2SZM(I)«Q2SZ(I) 

RETURN 
30  DO  40  1-110,120 

Q2P ( I ) «QPRE ( I , K ) ♦QPRE ( I , K ) -SV ( I ) ♦SV ( I ) 
nC ( I ) -QPRE  C I , K ) 
40  VC(I)-SO(I,K)-SOPRE(I,K) 
IF  (K.GT.KTE1+1)  GO  TO  60 
DO  50  1-110,120  ' 
50  Q2M(I)-Q2P(I) 
60  CONTINUE 

DT-TSTEP*DX 
KM-K-I 

IF  (KFLAG.EQ.I)  KM-KTE2 
I-I20 
DY(I)=0. 
DYK(I)-0. 
70  I-I-1 

DY(I)-0. 

IF  (I.LE.I10)  GO  TO  100 

IP-I+1 

IM-I-1 

IF  (I.GT.ITE2(KM)  .OR.I.LT.ITEKKM)  )  GO  TO  70 

Q2X-2.*A1(I)*(Q2(IP)-a2(I) ) 

IF  (Q2SXM(I).LE.O. )  Q2X-2. •Al ( I ) ♦(Q2( I)-Q2( IM) ) 

Q2Z-2.»C1(KM)»(Q2P(I)-Q2(I) ) 

IF  (Q2SZM(I) .LE.O. )  Q2Z-2. ♦CI (KM) ♦ (Q2( I) -Q2M(I ) ) 
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0S»Q2  ( I )  -t- .  5«DT«  ( Q2SM(  I )  #02  ( I }  ••■Q2SXM ( I }  •Q2X-f Q2SZM ( I )  *Q2Z ) 

FFOO-FOO 

rF01»F01 

FF10»F10 

IF  (ABS(SM(I) } .LE.CUTLO)  FF10>0. 

FF11-F11 

FAC-1 ./(FF00+FF01-FF10-FF11 ) 

DY ( I ) ■ ( DT*DS-DY ( IP ) ♦ ( FF1 0+FF1 1 ) +DYK ( I ) ♦ ( FFO 1 -FF1 1 ) +DYK ( IP ) •FFI 1 ) 
1  •FAC 

DUMM-SO ( I ,KM) +DY( I ) 

IF  (DOMM.LT.SOPREd.KM)  )  DUMM>SOPRE(  I.KM) 

DY( I ) -DOMM-SO ( I ,KM) 

SO(I,KM}«DaMM 

IF  (SO(I,KM} .LE.SOPRE(I,KM} )  GO  TO  90 

IF  (ABSCDS) .LT.RDSO)  GO  TO  80 

RDS 0 »AMAX 1( ROS 0 , ABS ( OS ) ) 

IQ»I 

KQ>KM 
80  CONTINUE 

NDQ»NDQ+1 

ROQsRDQ-t-ABS  ( OS ) 
90  CONTINUE 

GO  TO  70 
100  CONTINUE 

IF  ( KFLAG . EQ . 1 }  RETURN 

DO  110  1-110,120 

OYK(I)»OY(I) 

Q2M(I}bQ2(I} 

Q2(I)>Q2P(I) 

Q2SM(I}-Q2S(I) 

Q2SXM(I)>Q2SZ(I) 

Q2SZM(I}»Q2SZ(I} 
110  CONTINUE 

IF  (K.LT.KTE2)  RETURN 

DO  120  1-110,120 
120  Q2P ( I ) -AMIN1 ( 0 . , 2 . •Q2 ( I ) -Q2M( I ) ) 

KFLAG- 1 

GO  TO  60 

END 


SUBROUTINE  CPLOT  ( II , 12 ,X, Y,Z ,A,B,C,D, FMACH ) 
PLOTS  CP  AT  EQUAL  INTERVALS  IN  THE  MAPPED  PLANE 

DIMENSION  KODE( 3),  LINE(IOO),  X(1),  Y( 1 ) ,  A( 1 ) ,  B(1),  C(1),  D(1) 
1  Z(1) 
DATA  KODE  /1H  ,1H+,1H0/ 
IWRIT-6 

AA0-.2-t-1  ./FMACH**2 
WRITE  CIWRIT,80) 
DO  10  1-1,100 
10  LINE(I)-K0DE(1) 
110-11 
120-12 
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ISPA-1 

LX»(I1+l2)/2 
yDEN-1./B(I20) 
LX0».85*FLOAT(LX) 
IF  (LXO.LT. 12-49)  ISPA-2 
AMAXaO. 
CMAZbO. 

DO  20  I«I10,I20 
AHAX» AMA2 1( AMAZ , ABS ( X ( I } } ) 
AMAX>AMAX1(AMAX,ABS(y(I) ) ) 
CMAX» AMAX 1 ( CMAX , ABS ( C ( I ) ) ) 
20  CMAX-AMAX1(CMAX,ABS(D(I) )) 
DO  70  I»LX0,I2,ISPA 
XFRACaFDEN»B(I) 

y(I)«SQRT(Y(I)»*2/(AA0-.2»Y(I)»»2) ) 
Kl-(59./AMAX)»ABS(X(I) )+41. 
K1»MIN0(K1,100) 
LINE(K1)»K0DE(2) 
K2»(59./AMAX)»ABS(Y(I) )+41. 
K2>MIN0(K2,100} 
LINE(K2)«KODE(3) 
K3 - ( 36 . /CMAX ) •D ( I ) + 1 . 
K3>MII<I0(K3,40} 
IF  (K3.GE.1)  GO  TO  30 
K3-1. 
GO  TO  40 
30  LINE(K3)»KODE(2) 
40  K4«(36./CMAX)*C(I)+1. 
IF  (K4.GE.1)  GO  TO  50 
K4-1 

GO  TO  60 
50  LINE(K4)«K0DE(3) 
60  CONTINUE 
JJ»0 

IF  (Z(I) .GT.O)  JJ»1 

WRITE  (IWRIT,90)  XFRAC,X( I ) .Y ( I ) , JJ.LINE 
LINE(K1)»K0DE(1) 
LINE(K2)»K0DE(1) 
LINE(K3)«K0DE(1) 
LINE(K4)»K0DE(1) 
70  CONTINUE 
I1»I10 
12*120 
RETURN 

80  FORMAT  ( 1H1 ,/,3X,3HX/C,4X,5HMC0MP,4X,5HMDSGN,3H  ON) 
90  FORMAT  ( 1X,F5 . 2,2F9 . 3, I3,2X, 100A1 ) 
END 


SUBROUTINE  FORCF  ( 11 , 12 ,X, Y.CP , AL, CHORD ,XM,CL,CD,CM) 
CALCULATES  SECTION  FORCE  COEFFICIENTS 
DIMENSION  X(1),  Yd),  CP  (  1  ) 
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RAD-57. 2957795130823 
AIiPHA«AL/RAO 
CL«0. 
CD>0. 
CM-0. 
N»I2-1 

DO  10  I»I1,N 
DX-(X(I+1)-X(I))/CH0RD 
DY»(Y(I+1 )-Y(I) )/CHORD 
XA-( .5*(X(I+1)+X(I))-XM)/CH0RD 
yA».5*(Y(I+1)+Y(I) )/CHORD 
CPA- . 5* ( CP ( 1+ 1 ) +CP ( I ) ) 
DCL— CPA»DX 
DCD-CPA»DY 
CLaCL-t-DCL 
CD»CD+DCD 
10  CM*CM-fDCD*YA-DCL*XA 

OCL>CL*COS ( ALPHA ) -CD*SIN ( ALPHA ) 

CD>CL«SIN(ALPHA}-fCO*COS  (ALPHA) 

CL-DCL 

RETURN 

END 


SUBROUTINE  T0T70R  (KTE1 ,KTB2, CHORD, SCL,SCD,SCM,Z, XC,CL, CD, CMP, CMR 
1  ,CMY, AWING) 

CALCULATES  TOTAL  FORCE  C0E7FICXENTS 

DIMENSION  CHORD(I),  SCL(1),  SCD(1),  SCM(1),  Z(1),  XC(1} 

SPAN»Z(KTE2)-Z(KTE1 ) 

CL*0. 

CD-0. 

CMP-0. 

CMRaO. 

CMY»0. 

S>0. 

N»KTE2-1 

DO  10  K»KTE1,N 

DZ«.5*(Z(K+1)-Z(K) ) 

AZ».5»(Z(K+1)+Z(K) ) 

CL»CL+DZ»(SCL(K+1 ) ♦CHORD (K+1 ) +SCL{K) ♦CHORD (K) ) 

CDaCD+DZ^(SCD(K+1 ) ♦CH0RD(K+1 ) +SCD(K) ♦CHORD (K) ) 

CMP-CMP+DZ^ ( CHORD ( K+ 1 ) ♦ ( SCM ( K+ 1 ) ♦CHORD ( K+ 1 ) -SCL ( K+ 1 ) ♦XC ( K+ 1 ) ) 
1  +CHORD(K)^(SCM(K)^CHORD(K)-SCL(K)^XC(K) )) 

CMR>CMR-*-AZ^DZ^  (  SCL  ( K-t- 1  )  ♦CHORD  ( K-t- 1  )  -f  SCL  ( K )  ♦CHORD  ( K )  ) 

CMY>CMY-i-AZ^DZ^  ( SCD  ( K-f  1 )  ♦CHORD  ( K-i- 1 )  4-SCD  ( K )  ♦CHORD  ( K )  ) 
10  S»S-i-DZ^(CH0RD(K-*-1)4-CH0RD(K)  ) 

AWING>S 

CL«CL/S 

CD-CD/S 

CMP*CMP^SPAN/S^^2 

CMR» ( CMR+CMR ) / ( S^SPAN ) 

CMY» ( CMY+CMY ) / ( S^SPAN ) 

RETURN 
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END 


SITBROUTINE  OPT  (QQ1  ,QQ2,QQ3  ,QQ4  ) 
C      INITIALIZES  PARAMETERS  FOR  THE  OPTIMIZATION  ROUTINE 
C      AND  CALLS  OPTIMIZER 

DIMENSION  QQKD,  QQ2  ( 1)  ,  QQ3(1),  QQ4(1) 

DIMENSION  X(20},  G(20),  H(20,20),  W(60),  XM(20) 

EXTERNAL  DR7CT 

IWRIT-6 

N>4 

OFN-.0003 

HH-1. 

MODE a 1 

DO  10  I«1,N 
10  XM(I)«.05 

X(1}*QQ2(2) 

X(2)*QQ3(2} 

X(3}>QQ2(3} 

X(4}»QQ3(3)  .  . 

MAXFN»30 

IPRINT=1 

EPS-.1 

CALL  VA10A  (DRFCT,N,X,F,6,H,H,DFN,XM,HH,EPS,M0DE,MAXFN,IPRINT 
1  ,IEXIT) 

RETURN 

END 


SUBROUTINE  DRFCT  ( NDUM , XDUM , F ) 
C      EVALUATES  THE  DRAG  AS  A  FUNCTION  OF  THE  SPEED  DISTRIBUTION 
C      DETERMINED  BY  THE  OPTIMIZER 

COMMON  G(200, 35, 35),  S0(200,35},  E0(202},  Z0(202),  IV(200,35), 

1  ITE1(35},  ITB2(35),  A0(200),  A1(200),  A2(200),  A3(200},  B0(35}, 

2  B1(35),  B2(35),  B3(35},  Z(35),  C1(35),  C2(35),  C3(35)»  XC(35},  X2. 

3  (35),  XZZ(35),  YC(35),  YZ(35),  YZZ(35),  tnc,  NY,  NZ,  KTE1 ,  KTE2, 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAW,  ALPHA,  CA,  SA,  FMACH,  N1 ,  N2 , 

5  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 , 35 ) ,  SOPREt 200 , 35 ) ,  NQSTA, 

6  ZQSTA(35},  PCQ1(35),  PCQ2(35),  PCQ3(35},  QQ1(35),  QQ2(35),  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 

8  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 20  0 ,35 ) ,  SECDRG(35} 

9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC 

COMMON  /FLO/  PI,  P2 ,  P3,  BETA,  FR,  IR,  JR,  KR,  DG,  IG,  JG,  KG,  NS, 
1  FSWEEP 

DIMENSION  XDUM(I) 

DIMENSION  SV(200),  SM(200),  CP(200),  X(200),  Y(200},  UC(200},  VC(2 
1  00),  WC(200),  CEORD(35),  SCL(35),  SCD(35),  SCM(35) 

DATA  ISTART  /I/,  NITOT  /O/ 

DATA  VAR  /O.O/ 

IWRITaS 

AAO- 1 . /FMACH»»2+ . 2 

NE-200 

LX-NX/2+1 
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QCUT-.015 

QMCUT-.09 

IMAZa150 

QQ2(2)>XDt7M(1) 

QQ3 ( 2 ) -XDUM ( 2 ) 

QQ2(3)«XDUM(3) 

QQ3(3}*ZDaM(4) 

IF    (ISTART.NE. 1)    CALL   TREAD 

ISTART»ISTAJIT+1 

IF  (ISTART.GE.10)  IMAX-200 

DO  10  KL»1,5 

PRINT  70,  2QSTA(KL),QQ1(1CL),QQ2(KL),QQ3(KL),QQ4(KL) 
10  CONTINUE 

CALL  SETQS  (NE.NX.QPRE, SO ,S0PRE,ITE1 , ITE2 ,KTE1 ,KTE2,Z ,ZQSTA,AO 
1  ,PCQ1  ,PCQ2,PCQ3,nC,VC,QQ1  ,QQ2,QQ3  ,QQ4  ,PCS1  ,PCS2,DSURP,NQSTA) 

WRITE  (IWRIT,120) 

WRITE  (IWRIT,80) 

ITER»0 
20  ITER»ITER+1 

CALL  MIXFLO 

NIT0T»NIT0T+1 

VOLDRG>0. 

CALL  DRAGC  (0) 

RDSObO. 

NDQsO 

RDQ-O. 

DO  30  K»KTE1,KTE2 

CALL  VELO  (K,K,SV,SM,CP,X,Y,aC,VC,WC) 

CH0RD(K)*X(ITE1(K) )-X(LX) 

CALL  FORCF  (ITE1(K) ,ITE2(K) ,X, Y.CP, AI.,CHORD(K) ,XC(K) ,SCL(K) ,SCD(K) 
1  ,SCM(K)) 
30  CONTINUE 

CALL  TOTFOR  (KTE1 ,KTE2 .CHORD, SCL,SCD,SCM,Z ,XC,CL, CD 1 , CMP, CMR.CKY 
1  , AWING) 

IF  (NDQ.GT.O)  RDQbRDQ/FLOAT(NDQ) 

WRITE  (IWRIT,90)  ITER, FR,DG,NS ,RDQ,RDSO , VOLDRG,CL,NITOT 

IF  ( ITER . GE . IMAX )  GO  TO  40 

IF  (AMAX1(RDQ,RDS0} .GE.2. )  GO  TO  40 

IF  (RDQ.GT.QCUT.OR.RDSO.GT.QMCUT)  GO  TO  20 
40  VOLORG«0. 

CALL  DRAGC  (0) 

WRITE  (IWRIT,100)  VOLDRG 

NDUM0«NDUM/2 

DO  50  Ia2,3 

XMA1 •SQRT(QQ2 ( I } ••2/ ( AAO- . 2*QQ2 ( I ) **2 } ) 

XMA2-SQRT ( QQ3 ( I } •*2/ ( AAO- . 2*QQ3 ( I } ••2 ) ) 

WRITE  (IWRIT.IIO)  I,QQ2(I} ,QQ3(I),XMA1,XMA2 
50  CONTINUE 

DO  60  K-KTE1 ,KTE2 

CALL  VELO  (K,K,SV,SM,CP,X,y,UC,VC,WC) 

CH0RD(K)*X(ITE1(K) )-X(LX) 

CALL  FORCF  (ITE1(K) ,ITE2(K) ,X, Y,CP,AL,CH0RD(K) ,XC(K) ,SCL(K) ,SCM(K) 
1  ,SCD(K)) 

WRITE  (IWRIT,120}  Z(K),SCL(K} 
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CALL  CPLOT  (ITEKK)  ,ITE2(K)  ,SM,UC,  VC,CPRE(  1  ,K)  ,A0  ,SOPRE(  1  ,K)  ,S0(1 
1  ,K),FMACH) 
60  CONTINUE 
F-VOLDRG 
RETURN 

70  rORMAT  (1X,5F10.5) 

8 0  FORMAT  (1 X , 6Z , 4HITER , 5Z , 5HRESI0 , 6Z , 4HOPHI , 8Z , 2HNS , 5Z , 5HDQAVE , 5Z , 5H 

1 DQMAZ ,  6Z ,  4HI3RAG ,  8Z ,  2HCL ,  5Z ,  5HNIT0T ,  /// ) 
90  FORMAT  ( 1Z, 11 0 , 2E1 0 . 3 , 11 0 , 2E1 0 . 3 ,F1 0 . 5 ,F6 . 2 , 16 } 
100  FORMAT  (1Z,//,1Z5HDRA6>,F10.5,20H     SPEED1     SPEEO2,20H     MACH1 

1     MACH2   ) 
110  FORMAT  (1Z,/,6Z,I10,4F10.5) 

120  FORMAT  ( 1H1 , 1Z,7HZ(K)  ■  ,F10.5,2Z,6H  CL  «  ,F10.2//) 
END 


SUBROUTINE  TREAO 

READS  THE  POTENTIAL  STORED  AT  THE  END  OF  THE  LAST  LINE  SEARCH 

COMMON  G(200, 35, 35),  S0(200,35),  E0(202),  Z0(202),  IV(200,35), 

1  ITE1(35),  ITE2(35),  A0(200},  A1(200),  A2(200),  A3(200),  B0(35), 

2  B1(35),  B2(35),  B3(35),  Z(35),  C1(35),  C2(35),  C3(35),  ZC(35),  ZZ 

3  (35),  ZZZ(35),  yC(35},  yz(35},  yZZ(35},  NX,  NY,  NZ,  KTE1 ,  KTE2 , 

4  ISYM,  SCAL,  SCALZ,  YAW,  CYAW,  SYAH,  ALPHA,  CA,  3A,  FHACH,  N1 ,  N2 , 

5  N3,  10,  NDES,  TSTEP,  EPS1,  QPRE( 200 ,35 } ,  30PRE(200 ,35} ,  NQSTA, 

6  ZQSTA(35),  PCQ1(35},  PCQ2(35),  PCQ3(35),  QQ1(35),  QQ2(35},  QQ3(35 

7  ),  QQ4(35),  PCS1(35),  PCS2(35),  DSURF(35),  RDQ,  RDSO,  FOO,  F01, 

8  F10,  F11,  NDQ,  IQ,  KQ,  AWING,  VOLDRG,  IDRGPLT( 200 ,35) ,  SECDRG(33} 

9  ,  FINH1,  FINH2,  ISRC,  JSRC,  KSRC 
NT»8 

REWIND  NT 

READ  (NT)  NZ,NY,NZ,NM,K1,K2,NIT 
MZ>NZ-f  1 
MY-NY+2 
MZ»NZ-«-3 
DO  10  K*1,MZ 

READ  (NT)  ( (G(I,J,K),I«1,MZ) ,J«1,MY) 
10  CONTINUE 

READ  (NT)  (EO(K) ,K»K1,K2) 

READ  (NT)  ( (SO(I,K) ,I«1,MZ) ,K>1,MZ} 

REWIND  NT 

RETURN 

END 
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